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Ï"M ïîïïîîj V Parce qu'il avait 

ïi îî"ïï; uîî 1 °" blié de P a y er sa 
ijjil .j^jjj t ; note d'électricité, de 
méchants électri- 
ciens ont coupé la 
lumière du château 
d'Arthur. 
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Pauvre Arthur ! Le seul moyen d'y 
voir clair est d'allumer le groupe 
électrogène caché au fin fond d'un laby- 
rinthe de 12 salles obscures. 

Avant chaque salle, vous aurez le 
temps de mémoriser le terrain. Atten- 
tion !!! Se cogner contre un mur est 
mortel. 

Dans certaines salles, vous trouvez des 
coffres contenant des torches pour 
éclairer la salle le temps de la mémori- 
ser. 

Tapez le premier programme et 
sauvegardez-le sous le nom de 
"DARK". 

Tapez le second que vous sauvegar- 
derez sous le nom de "DUNGEONS". 
■ Attention!!!! Sur cassette, sauve- 
gardez impérauvement les deux pro- 
grammes dans cet ordre. 
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180 SïHBOL 233,l3B,l7B,lFB,tFB,liFB, >EG 

m 

190 STHBOL 234,lFB,lFB.lFB.a0.lDF,l >HT 

DF.IOF 

200 STHBOL 235,11, l3,a/,l7,nED,l,F9, >HZ 

w,uf 

210 STHBOL 236.l£0.tEO,lEO,lFO,lFO. >HB 

IFB.lFE.lFF 

220 STHBOL 237, 1,3F, 13F, 13F, 119, 1,19, >JE 

IF, IF, 13 

230 STHBOL 238,tFF,kFF,*FF,lFE,liFC, >NT 

IF*,IF8,IFE 

2M SÏHBOL 238,180, «M. kEO,kEO,l87, >HU 

t9F,lBF,tF8 

250 STHBOL 240, 13,1/, »7,aF,liF,nlF,a >GN 

7F,IFF 

260 STHBOL 241, IFC.lFC.kFC, 196,198, >H) 

tfO.lFO.KO 

270 STHBOL 242,aFF,lFF,tFF,»7F,li3F, >«D 
alF,tlF,17F 

271 STHBOL 24J . un . Un. , UX , U*. , um . >KT 
lB0,lE0,k80 

272 STHBOL 244,W0,t80,t8C,a9E,a9E, >HL 
tSt.lBC.MC 

280 • >TA 

290 ' présentation >TB 

300 ' >U> 

310 PAPEB 0:CLS >EC 

320 PEN 1:L0CATE 15,10:PBIHT'F.Barn >Arl 
abe et": LOCATE 18,12:PBIHT'A«stAr" 
330 LOCATE 19. 14:PBl«T"vous":U>CATE >PH 
16,16:PBIhT"prejentenf 
3*0 INK 2,0: INK 3,0 >HJ 

350 1EST0BE 570:G0SUB 500 MM 

360 EESTOBE 380: FOB (red=l T0 B:EEA >VH 
D ai, ly: LOCATE ai,ay:PBINT bl:KEn 
370 FOi fred=l T0 «:IEAD ai,ay:L0CA >HB 
TE ai,ay:PBINT* VL0CATF ai,ay-l:PB 
IHT» MOT 

380 DATA 1,9,13,9,27,9,39,9,2,10,12 >TB 
,10,28,10,38,10,15,22,26,22,7,16,34 
,16 

390 CLS tl:PL0T 332. 144,2;DBAB 332, >DG 
250 

400 FOR (=1 TO 50 STEP 2 >QK 

410 PLOT 334«f,180:DBAII 334*f,244:P >HW 
LOT 386<t,160:DIAB 366<f,224 
420 NEITlPAPEfi 2:PEN 3: LOCATE 24,12 >VV 
rPBIKT CHBN230I 

430 LOCATE 24,13:PB1NT OO«12321:L0 >GH 
CATE 25,13:PtlllT CHIII231) 
440 LOCATE 25,14:PIIKT CHM(233):PA >HL 



PEB 

450 LOCATE 9,3:PSIk7"6 IIK 
H G E N S* 

460 PLOT 1B2,0,0:DBAU 192,180:PL0T 
446,0 :DUy 446, 180 
470 INK 2, 10: INK 3,26 
480 BUN'DUNGEOHS 
490 ' 

500 ' lecture data écran 
510 ' 

520 FOB 11=1 TO 12:BEAD d»:F0B 12=1 >BH 
TO 20:te«=fllDI(dl, 12,11 
530 FOB 13=0 TO 1: LOCATE (12l2)-l,i >Jfi 
112-1*13 



D U >PG 
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>TD 
>IF 
>BC 
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570 ' data 


présentation 
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590 DATA • 
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600 DATA ' 
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610 DATA • 
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620 DATA •• 


... ..... 
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630 DATA • 
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640 DATA ' 
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650 DATA " 




>ZV 


660 DATA • 
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680 DATA ' 




;1* 


690 DATA ' 




>CH 


700 DATA ' 




>CZ 


710 DATA ■ 




>CA 
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10 ' IHHHlHIMIMHtHUMMllH >LA 

llttl 

20 '•••• >LB 

•tu 
30 '•••• DABK DUHŒONS >LC 

llil 
40 ■•••• PA1 >LD 

im 

50 '»■• F. Barnabe >LE 
'un 
60 '■■•• >LF 

un 
70 iiiiiiiiiiiiiiiiiiiiuiiiiuui >LG 



Iflfll 

80 ' >LH 

90 ' Initialisation >U 

100 ' >BB 

110 Cll=CHBII230>tCHfil(231>:C2»=CHB >TB 

l(232)*CHB<(233) 

120 F6U=CHB«<23S>»CHBI(236):FG2I=C MIT 

HBI1237HCHBI1238) 

130 FD1I=CHB«(240)«OB1«(239):FD2I=C >ÏF 

HBK242HCHB«(241> 

140 INll=0*M(234)tCHBI(243) >ÏE 

150 IN2»=CHfi»(234HCHBI(244> >VH 

160 B«=CHBI(234HCHB»1234) >TU 

170 BINDOW 11, 15,26.8, 1*:PAPEB 11,3 >KD 

:PEB 11,1 

180 UINSW 12,1,40,25,25 >BD 

190 tla=S00:«l=S:dlr=l:ui=638:SPEED >TJ 

INK 1,1:G0T0 2350 

200 ' >BC 

210 ' lecture data écran >BD 

220 ' >BE 

230 PEN 1:L0CATE 10. 2S:PSINT*Veul 1 I >DZ 
et Patienter...' 

240 FOB 11=1 TO 12:B£A0 dl:F0B 12=1 >BL 

TO 20:te»=NID»(d», 12,11 

250 FOB 13=0 TO 1: LOCATE I12<2)-1,1 >J0 
U2-l«13 

260 SOU» 1.120tB*)i300.5.1S >VH 

270 IF tel= a - THEH PEN 2:PBINT M >AN 

280 IF U»»"*' AN) 1=1 THEH PEN 3:P >HT 
BINT c2l 

290 IF tel='i* AND a =0 THEH PEN 3:P >TD 
BINT cll:i=l:ELSE a=0 

3O0 HT I3:NEIT 12:H3T U >W 

310 BEAD ta,)a,coul,tl, ei.ey.de, si, >LL 
sy,ds 

320 BETUKN >U 

330 ' >K 

340 ' FANTOHE )BH 

350 ' >8J 

360 I=FJ:T=ET >ZC 

370 DI:PEH 1:1F JA=4 THEH LOCATE I, >HG 
Ï-1:PBINT FG1«:L0CATE I,T:PBINT FG2 
l:EI:G0T0 390 

380 IF JA=8 THEH LOCATE I,Ï-1:PBINT >NE 

FD1»:L0CATE I,T:PBINT FD2«:EI 

390 IF tl=0 THEH vil: GOTO 600 >H 

400 IF dir=l THEN )=J0ï(O):G0TO 420 >CL 

410 IF dlr=2 THEN GOSUB 3150 >VJ 

420 IF J=0 OB J=5 OB J=6 OB J=9 OB >TB 
J=10 OB CJ=de AND i=ei AND y=ey) TH 
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EN 380 

430 IF )=dl AHD PU AND y=9y THEN >TF 

ti»-U:BÏTUW 

«40 IF J=8 THEN tet=TEST(H16»32,<2 >HU 

6-ylll6*4) 

4S0 IF H THEN tet=TEST(H16-32,(2 >flV 

6 y)tl6»4) 

460 IF )-l THEN tet=TEST(ltl6,(26-y >KH 

)il6i36) 

470 IF )=2 THEN tet=TEST(Ul6,(26y >K« 

1116-381 

480 IF Ut-2 THEN GOSUB S90:G0T0 36 >CQ 



490 IF tft*3 THEN SOUND l,10,b,lb.4 >W 

,2,0:tU=ti:tl=10:CLS I2:G0SUB 2680 

:tl tU:G0T0 370 

500 SOUND 1,0,0.5,15,2,0,12 >UP 

510 DhLOCATE I,M:P«INT" ":L0CA1 >ZE 

E I,Ï:PBINT' ":EI 

520 IF J=l THEN T=ï-2 >PJ 

530 IF M THEN 1-UZ >PJ 

540 IF J*4 THEN 1=1-2 >PH 

550 IF J -8 THEN 1=1*2 -HJ 

560 IF J>2 THEN JA=J >NL 

siu uiru no >u 

580 ' >TD 

590 ' Pette d'Une vie >TE 

600 ' >t£ 

610 tVEKÏ 0,2 GOSUB 2710: UK 2,6,2: >VD 

»i vl !:CÛSUB 2760:F0> M TO 2000: 

NFJTMF vl=0 THEN 640 

620 tU'tlldS »2:ti = 10:GOSUB 2680: >KC 

U*til 

630 LOC/fTE I,ï-l:PilNT" ':LOCATE X >8G 

,(:PBiNT* VBETUBN 

640 INK 2,coul:aS ll:LOCATE 11,2,4 >KP 

:PBINT 11,'GAHE ÛÏQ'il-OB t = l TO S 

000:NEIT:BUN 

650 ' >TB 

660 ' data ulle >TC 

670 ' >TD 

680 DATA >EG 

690 DATA "•• >C 

700 DATA "•■ >IQ 

710 DATA "••• •"■ >W. 

720 DATA "" >BH 

730 DATA >DH 

740 DATA •"• "■ >WA 

750 DATA"" •••" >W 

760 DATA >DA 

770 DATA >M 

780 DATA >BN 



790 DATA ■ 

800 DATA 1,4,2,10,19,2,1,25,24,2 
810 ' 



820 DATA ■ 

830 DATA à 1 " 

840 DATA 

850 DATA 

860 DATA 

870 DATA 

880 DATA " 

890 DATA 

900 DATA 



910 DATA 

920 DATA 

930 DATA 

940 DATA 2,4,10,10,23,2,1,39,12,8 
950 ' 

960 DATA 

970 DATA 

980 DATA " 

990 DATA 

1000 DATA A ' 

1010 DATA ■ 

1020 DATA 

1030 OATA 

1040 DATA 

1050 OATA 

1060 DATA " 

1070 DATA 

1080 DATA 3,8,9,10,1,12,4,39,6,8 
1090/ 

1100 DATA 

1110 DATA A "■ 

1120 DATA ' 

1130 OATA 

1140 DATA ' 

1150 DATA 

1160 DATA "■* ' "A * "■ 

1170 DATA 

1180 DATA " 

1190 DATA 

1191 DATA 

1200 DATA 

1220 DATA 4,8,14,10,1,8,4,11,24,2 
1230 ' 

1240 DATA • 

1250 OATA "• ' " 

1260 DATA 

1270 OATA - ■» 

1280 DATA 

1290 DATA 

1300 DATA 



>EJ 
>XH 
>BK 
>EC 
>DU 
X» 
>CF 
>ZH 
>BN 
>ZP 

m 
>cn 

>AC 

>AD 

>FK 

>T« 

>TE 

>FN 

>FP 

X* 

>BB 

>TÏ 

>M 

>ZU 

>EC 

>AD 

>BK 

>BL I 

>F0 

>IE 

>TC 

>FJ 

>U 

)TN 

>LI 

>T0 

>FA 

>n 

>TU 
Ylî 

m 

>IB 
>FW 
>TH 
>LI 
>FA 
>VH 
>C1 
>UE 
>IB 

>n 

>2H 



1310 DATA A • •■ >ZU 

1320 DATA >TQ 

1330 DATA >AF 

1340 DATA •• " •■ >WT 

1350 DATA >FC 

1360 DATA 5,8,5,8,11,2,1,21,24,2 >IP 

1370 ' >TD 

1380 DATA >FF 

1390 DATA "" •• >VT 

1400 DATA •" "• >VJ 

1410 DATA " " >« 

1420 DATA >BL 

1430 DATA >F» 

1440 DATA >M 

1450 DATA >1P 

1460 DATA ••" >ID 

1470 OATA • Ml 

1480 DATA ■" • •• >WV 

1490 DATA >FH 

1500 DATA 6,8,23,6,21,2,1,19,24,2 >T1 

1510 ' >IN 

1520 DATA >FB 

1530 DATA ■« >HD 

1540 DATA >BP 

1550 DATA •' ' >ZE 

1560 DATA • >ZF 

1570 DATA '• ' >n 

1580 DATA ■ XX 

1590 DATA >AA 

1600 DATA >TF 

1610 DATA >M 

1620 OATA " ••••>» 

1630 DATA >FD 

1640 DATA 7,4,19,4,19,2,1,39,22,8 >TB 

1650 ' >TE 

1660 DATA " >FN 

1670 DATA •• ■• >ïï 

1680 DATA >ED 

1690 DATA •• " - •" >«B 

1700 DATA >DB 

1710 DATA - • • • •" >NH 

1720 DATA X* 

1730 DATA >IE 

1740 DATA ■• >ZF 

1750 DATA XS 

1760 DATA ■ >W2 

1770 DATA >FT 

1780 DATA 8,8,1,10,1,22,4,39,16,8 >TN 

1790 ■ >TK 

1800 DATA • >FI 

1810 OATA •• •• >ÏA 

1820 DATA >BE 



1830 DATA 
1840 DATA 
1850 DATA 
1860 DATA 
1870 DATA 
1880 DATA 
1890 DATA 
1900 DATA 
1910 DATA 
1920 DATA 
1930 ' 
19*0 DATA 
1950 DATA 
1960 DATA 
1970 DATA 
i960 DATA 
1990 DATA 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 * 
2090 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2160 DATA 
2190 DATA 
2200 DATA 
2210 ■ 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2340 DATA 
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9,8,13,8,1,16,4,37,24 
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10,4,25,8,37,2,1,1,4, 
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11,4,2,6,39,4,8,25,24 
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12,4,14,6,25,2,1,5,12 
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>ZB 


2350 ■ >TC 


>A1 


2360 ' JEU >TD 


>ZP 


2370 ' >TE 


>AK 


2380 GOTO 2800 >KA 


>AB 


2390 GOSUB 210:CLS I2:G0SUB 2680:tl >U 


>T« 


=tli:G0SUB 360: GOSUB 32»0:BFTUBK 


>AT 


2400 ' >U 


m 


2410 GOSUB 2640:BESTOBE 680: GOSUB 2 >FI 


m 


390 


>TP 


2420 GOSUB 2640:EEST0BE 820:G0SUB 2 >FU 


>TF 


390 


>FH 


2430 GOSUB 2640:B£ST0BE 960:G0SUB 2 >FA 


>IF 


390 


>CQ 


2440 GOSUB 2640:lEST0t£ UOO:GOSUB >G1 


>rc 


2390 


)8Ï 


2450 GOSUB 2640:BEST0BE 1240: GOSUB >GD 


>AU 


2390 


>AA 


2460 GOSUB 2640:tESTOBE 1380:GOSUB >GK 


>M 


2390 


>BT 


2470 GOSUB 2640:BEST0tE 1520:G0SUB >GG 


>AZ 


2390 


>2Z 


2490 GOSUB 2640:IESTOBE 1660:G0SUB >GN 


>FP 


2390 


>D» 


2490 GOSUB 2640:I£STDBE 1800:G0SUB >GK 


>ra 


2390 


>FT 


2500 GOSUB 2640:BESTOI£ 1940:G0SUB >GG 


>IG 


2390 


>DW 


2510 GOSUB 2640:BEST0BE 2060:G0SUB >GB 


>AC 


2390 


>ZT 


2520 GOSUB 264O:BEST0tE 2220 >W 


>A£ 


2530 GOSUB 210 :PEN 2:UKATE 3,11 >ZB 


>ZL 


2540 PBIKT ln2t:LDCATE 3,12:PB1HT 1 >FW 


>BB 


■Il 


>AH 


2550 CLS I2.-G0SUB 2680 >PU 


>EJ 


2560 tl*tia:G0SUB 360 >QC 


>VB 


2570 EVEBÏ 0,2 GOSUB 2570:UKATE 1, >DS 


>FF 


1:PIINT CHBK22HCHBIU) 


>TZ 


2580 INC 2,l:lll< 1,14 >MJ 


>m 


2590 LOCATE 10,B:PEK l:PBIHT*Et que >JU 


>FZ 


1> Imlere toit !!!" 


>TH 


2600 LOCATE 17, 10:PBIKT'Blavo !' >BT 


>AG 


2610 FOB Ired'O TO 2000:HEXT >VT 


>n 


2620 PBIKT CW«(22)«CKtl(0) >*F 


>CT 


2630 DM >BK 


>TÏ 


2640 ' >TE 


>BF 


2650 ' coipte a rebout, salle, vie >TF 


>ZT 


... 


>ZT 


2660 • >TG 


>DJ 


2670 IMC 1.26:1* 2,0:11* 3,0:PAPE1 >BA 


>BL 


0:CLS:1ETUW 


>F0 


2680 - > H 


>T» 


2690 IHt l,26:IIK2,coul:llK3,3:EV >WD 1 



EIT 50,2 GOSUB 2710 

2700 IF tl=0 THEN BETUBN:ELSE 2700 >BB 
2710 IF ti< = 10 THEN SOUND 1,50,3,15 >TN 
,2,2,l:GOT0 2730 

2720 SOUND 1,100,1,15,2,2,1 >UT 
2730 ti-tl-l:LOCATE 16,25:PEN l:Pfil >» 
NT'Teipj :'ti" 

2740 IF tl=0 THEN 27SO:ELSE BETUBN >BN 
2750 IMC 2,0 >IU 

2760 LOCATE 1, 25:WINT , Salle :'ta:L >TB 
OCATE 32,25:PBINTMe :"»i:B£TUBN 
2770 > >TJ 

2780 « Nenu >TK 

2790 ' >1A 

2800 GOSUB 3340 >IC 

2810 PAPEB 0:CLS >U 

2620 IMC 1, 14:IIK O.liBOBDEB 1:1* >0V 
2,2:1* 3,26:PEN 1 

2830 IESTOBE 2880:F0B T=l TO 4.-BEAD >HK 
X.T.P 

2840 PEN P >KE 

2850 LOCATE I,T:PBINT FD1»:L0CATE I )»A 
,T«1:PBINT FD2» 

2860 NFJT >LH 

2870 PEN 3:L0CATE 9,2:PIINT'D A I K >TG 

DUNGEONS' 
2860 DATA 6,2,2,14,10,3,14,15,1,14, >DZ 
20,2 

2690 PEN 2:L0CATE 3S,2:PIINT FG1»:L >AU 
OCATE 35,3:PB1NT FG2« 
2900 LOCATE 17.21 :PB1NT*3 CUÏIEBV >ZD 
LOCATE 28,21:1F dlr-2 THEN PBIKT CH 
■l(247):ELSE PBIKT- • 
2910 PEN 1:L0CATE 17, 16:PKIMT-2 JOT >LE 
STICK': LOCATE 26,16:1F ilt»l THEN P 
IIKT CHBI(247):ELSE PBIKT" ■ 
2920 PEN 3:L0CATE 17, ll:PBIKT'l JEU >DB 

2950 qMINKETI: IF q»=" THEK 2950 )ZD 

2960 IF ol="l" THEN CLS:I* 0,0:BOB >BN 

DEB 0:GOTO 2400 

2970 IF q»='2" THEN dlr=l:SOUW> 1,0 >AJ 

,0.5,15,2,2,l:GOT0 2690 

2960 IF ■•••S" THEN 2990:ELSE 2950 >ZA 

2990 ' >ZC 

3000 dlr-2:SDUND 1,0,0.5,15,2,2,1 >ZK 

3010 CLS.'PEN 1:L0CATE 10,6:PtlNT'Ha >Pg 

ut ... ■ 

3020 haMIMŒTI:IF tal«™ THEN 3020 >BD 



3030 LOCATE 21,8:PBINT hal 
3040 LOCATE 10,10:PtlNT*Bai 



>UM 
>0C 



mwtwnimamwi!& 
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3050 ba$=IMŒY$:IF ba«=" a THEM 3050 >AF 
3060 LOCATE 21,10:PRINT bal >VU 

3070 LOCATE 10,12:PBINT a Gaucbe ... >FZ 

a 

3080 |al*INKEYI:IF (>•=" THEN 3080 >BP 
3080 LOCATE 21,12:P81NT lai >VE 

3100 LOCATE 10, U:PSJMT a Oroi te ... >FT 

■ 

3110 dr»=lMKET»:IF dr«=" THEM 3110 >BG 
3120 LOCATE 21,U:PilKT drl >VQ 
3130 LOCATE 12,25:P8IHT'Pres§e7 une >ÏC 
touche' 

3140 CALL IBB1B:GOTO 2910 >TZ 
3150 ' >TB 

3160 ' Clivler >TC 

3170 • >TD 

3180 1»'INKET« >ff 

3100 IF JMha» THEN j=l:ELSE .1=0 >TZ 
3200 IF |«=ba« THEN )=2 >PC 
3210 IF j«=«a» THEN j=4 >QC 



I 3220 IF ]>=dr« THEN 1=8 MIT 

3230 BETVBN )FB 

3240 ' >TB 

3250 ' changement de tableau >TC 

3260 ■ >TD 

3270 EÏEBï 0,2 GOSUB 2670 >TF 
3280 CLS:LOCATE 18, 10:PEM 1:PIINT'B >N> 
ravo !" 

3290 LOCATE 15,12:PilNT*Vous passez >LT 

a' 

3300 LOCATE 13,14:P8INT"la salie su >TA 
1 vante- 
3310 LOCATE 12.2S:P8INT*Preitez une >«C 

touche* 

3320 FOB t=l TO 2000:NFXT >TV 

3330 CALL *M18:IETUM >8P 

3340 ' > rc 

3350 ' Ihisioue >TD 

3360 • >T E 

3370 ■ >tf 

3380 BESTOBE 3440 >U 



3390 FOI T=l TO 58:BEAD Isa 



>UK 



3400 SOUND l,isa.2B,7:S0UND l.isa.l >EV 

>0 

3410 9andl=INKEYl:IF sandl=" THEN >IM 

3420:ELSE BETuHN 

3420 NEIT T H 

3430 GOTO 3340 >m 

3440 DATA 239,239,253,239,239,239,2 >CK 

53,239,213,239,253,284,239,239,253, 

239,239,239,253,230,284,319,379,358 

,319,319,319,319,319,358,379,426,37 

9,358,319 

3450 DATA 284,319,319,358,319,319,3 >CF 

19,284,253,284,319,358,379,426,379, 

426,478,478,426,379,358,426,319,213 

,213,239,213,213,213,239,253,284,25 

3,239,213 

3460 DATA 190,213,213,239,213,213,2 >CT 

13, 190, 179, 190, 213, 190, 134, 190, 179, 

190,213,239,253,284,253,284,319,319 

,284,253,239,284,239 a 
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KI'N'EGG 



CARDONA Laurent 



Je vous présente «SKV N' EGG » , jeu simulant des courses de ski : 

le programme a été fait sur un 664, il devrait toutefois 

marcher sans modification sur le 6128. 



Après RUN "SKINEGG", un menu 
se présente avec les diverses op- 
tions possibles. 

Vous pouvez choisir de concourir seul 
ou a deux , et ensuite de choisir votre type 
de piste ou bien de parcourir pour le cham- 
pionnat (option 6), sur les 4 types de piste 
avec un tableau récapitulatif à la fin des 
épreuves. 

Pendant la musique, l'ordinateur cal- 
cule la piste et son décor par un système 
aléatoire, c'est-à-dire qu'à chaque fois que 
l'on repasse par le menu, une piste est 
créée. Bien sûr, dans le jeu, les partici- 
pants skient sur la même piste. On pour- 
ra choisir de la refaire après les résul- 
tats. 

Le personnage est un œuf et se diri- 
ge par les touches droite et gauche du 
pavé numérique. La vitesse de descente 
est déterminée graduellement par la po- 
sition en schuss de l'œuf ; la seule possi- 
bilité de ralentir est de déraper en frei- 
nant, c'est-à-dire en utilisant une des tou- 



ches de direction + SHTFT, pour éviter 
de perdre l'élan, il suffit de ne pas ap- 
puyer sur shifl. Il est bien évident que 
plus l'œuf va vile, moins il est mania- 
ble. 

• SLALOM : il faut pour passer les 
portes, les contourner du côté du fanion. 
Un bip aigu vous indique les portes man- 
quées. 

Si vous touchez le pied de la porte, 
vous êtes déséquilibré, puis ralenti et vous 
tombez avant de repartir en ayant perdu 
du tremps. Si vous touchez un arbre, vous 
êtes disqualifié et avez un score de péna- 
lisation, vous êtes aussi pénalisé si vous 
ne passez pas par la porte d'arrivée. 

A l'arrivée, on vous donne votre temps 
de parcours et vos pénalités. Celui qui a 
le moins de point est le gagnant. 

• GEANT : ici, il faut passer entre les 
portes et ramasser les objets qui traînent 
au hasard. 



• DESCENTE : comme le géant mais 
avec en plus des bosses aux effets plutôt 
gênants mais pouvant être lucratif. 

• HORS-PISTE : ici pas de portes mais 
des arbres et des broussailles à éviter. Si 
vous n'allez pas vite, elles ne vous font 
pas tomber sinon elles vous disqualifient 
On peut sauter au-dessus de ces obsta- 
cles grâce aux bosses. Après le parcours, 
le gagnant est donné, par l'intermédiaire 
de manches pour le jeu à deux avec choix 
des pistes. 

■ 
Avant de taper le listing princi- 
pal, vous devez entrer les quel- 
ques lignes qui suivent (en res- 
pectant exactement le nombre 
d'étoiles), puis les lancer par 
RUN. Tapez directement après, 
le programme SKINEGG sans 
faire de RESET. 



skinegg 



20 'SKI'N'EGG -1986- >LB 

30 ' >LC 

40 MODE 1:INK l,3lltK 2,2:INK 3,9:B >JI 

ORDQ 13 

50 DEFINT a-z >PB 

60 DIX q(36£,2j.r«(368J,sp*USJ >IH 

70 G0SUB 120 >BA 

60 ENV 1,3,3,3,3,2,3,3,-1,10,6,-2,3 ;IU 

:EHT 1,3,-30,3,20,10,6 

90 ENV 2,3,-1, 9:EHÏ 3,2,7,1,1,0,2,9 >G0 

,-l,l:BN ♦,2,7,2,1,0,7,2,-1,3 

100 ENT 2,5,-2,1,5,2,1,5,-2,1,2,10, >ED 

1, 10,-5, l:DTr -3,5,-4,3,5,4,1 

110 G0SUB 12»0:GOT() 160 >QB 



120 F0B 1=1 T0 3:jo!(l-l,0>=i:NEIT: /KG 
BETUBH 

130 ' >BE 

140 'SEQUENCE 0E DEPABT >BF 

150 ' >IG 

160 no=0 >ïk 

170 INK 0,26:PEN 3 >IQ 

160 ON BBEAK G0SUB 2910 >W 

190 ON lo'lno.O) GOTO 200,200.1150 >ZV 
200 CLS:L0CATE 3, 7 : PB INT'EHFOMCEB ' >UG 
SPACE! P0UI FAIB£*:PKINT:PBINT* DE 
FILEE LA PlSTE...":P8INT:PBIIfT" UN 
E AUTRE TOUCHE P0UB J0UEB...VCALL 
IBB00 
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TO 417 »_ 

02 ™ 



50 F0B 11=374 TO 417 
60 1EAD al 
70 t»ML(W« 

60 P0KE n,a 

90 NEÏT n 

100 END 

110 DATA 3E.02 

120 DATA CD,90,BB,CD,60,BB,32,UD 

130 DATA 01,3E,03,CD,90,BB,CD,60 

140 DATA BB,32,6E,0l,C9,2A,2A,20 

150 DATA 20,32,35. 20,2A,20.41, 20 

160 DATA 52,45,53,50,45.43,54,45 

170 DATA 52 



210 ikl=INKET«:IF ik«=" THEN 210 >ZQ 
220 IF lk»=" • THEN 230 ELSE 240 >UV 
230 CL5:F0B 2=0 T0 H17:P1INT rs(z) >GV 
;:CAU 1BB06:NEIT:GOTO 200 
240 CLSlLOCATE 13,10:PB1NT "J U E >W 
U B \jo!(no,0l; 
250 FOB ta«p=l T0 1000:NFJT:CLS >7J 

260 FOB 2=0 T0 25:PBINT r«(21;:NEIT >CD 
270 PEU 1:L0CATE 21,9:PBINT kil(2>; >CG 
260 r=0:u=32:|>=32:K=21:z=2S:k=2:y=8 >ET 


290 PBINT CHB)(22)»CHB«(1); >H 

300 CALL IBB06:CALL IBD07 >TN 

310 EVEBÏ 15 G0SUB 900:01 >T0 

320 SOUND 2,0,9000,5,, ,l:)o!(l»,h)= >GN 



10 



TIME 




330 ' 


>RG 


3*0 'ROUTINE PRINCIPALE 


)!H 


350 ' 


>RJ 


360 FOI ï-9 TO f 


>ZJ 



370 LOCATE 1,25:PEN 3:P«INT rl(z):L >LP 

OCATE »,8:PEN 1:PBIHT kil(k); 

380 CALL H76:u=PEEK<llBD):p=PEEK((, >KH 

IBEtlEI 

390 IF u>192 01 p>192 OS q(»*2,2>>0 >HF 

THEN 560 
400 IF min!,«l OU U>qlvt2,l> THE >BK 
H r=r«600:S0UND 132,15,5 
410 FOR i=0 TO y:NEIT:z=z*l >UP 
420 ON II GOTO 440,430,440 >RG 
430 IF y=0 THEN DIlGOTQ 450 >UH 
440 DhLOCATE 15,8:PBINT HIDIIrItv) >U 
,15,20); 

450 KEIT >EE 

460 DI:tl!=TIHE:i=REHAlN(0):i=BEIlAl >K2 
NID 

470 LOCATE 17,B:PRINT KID»(r»(f 1,17 >HH 
,13);:L0CATE 1.25:PIINT r»(zl; 
480 GOSUB 810:S0UND 130,0,40,0,1,, 5 >TU 
:SOUND 2,0,500,10,, ,5 
490 y=yt2:F0fi 1=9 TO 22:F0R ta» >HH 
TO y:METr 

500 PEU 1: LOCATE w,z:PKlNT kl»(l):y >JT 
=y»50 

510 PEN 3: LOCATE l,i:P81NT t«(v)j!ï >HP 
=v»l 

520 IF y<601 THE» KEIT ELSE SOUND 1 >CT 
30,0,33,12,2,, 5:G0T0 1040 
530 ' >rj 

540 'TRAITEMENT DES COLLISIONS >RK 
550 ' >TA 

560 IF u>210 THEN 740 >NT 

570 IF p>203 AND (y>10 OS 9=1) THEN >CB 

700 
580 IF q(v»2,2)>0 THEN 850 >TE 
590 l=fiEMAIN(0):i=BEI!AIN(l):PEN 1 >BG 
600 FOR n=l TO 11 STE? 2:S0UND 130, >NH 
Ml00,44,3,l 

610 LOCATE u, 10:PR1MT CHRX16HCHR) >ÏJ 
(n»(94H6i(n)5))l); 

620 FOS ta»p=l TO 150:NEIT:NEn >AU 
630 PEN 3:L0CATE w,9:PRINT k»:LOCAT >AZ 
E 1,9:P«INT M(»*l>i 
640 SOUND 130, 0,66, 0,1,, 10:PEN 1 >TD 
650 LOCATE w,10:PBINT CHBK98HCHBI >DJ 
(BHCHBKIOIKHBXIU); 
660 FOB taip i TO 500:NEIT >UG 



670 IF p>201 THEN OUT IBCOO,8:OUT t >TI 

BDOO,1:GOTO 1010 

680 LOCATE »,10:PBINT kl; >UT 

690 GOSUB B00:y=80:PEN 3:S0UND 2,0, >IZ 

9000, S,,, 1; GOTO 410 

700 IF s=l THEN 7B0:ELSE SOUND 129, >DD 

0,40,0,1, ,5;y=B0:G0T0 410 

710 ' >BJ 

720 'TBAITEHENT DU SAUT >BX 

730 ' >TA 

740 •=BEHAIN(0):AFTEB 85-y,l GOSUB >FU 

800 

750 SOUND 129,200,<85-y).2,10,,l >TB 

760 EVEIY 20 GOSUB 960 >QA 

770 NID<(ki«lkl,7,ll=sal(k):s=l >TA 

7B0 IF y<15 THEN y=15 >NH 

790 r=r-100:G0T0 410 >NB 

800 EÏEJY 15 GOSUB 900:DI >TV 

810 l(IDI<kll(k),7,l)=sal<k*3):9=0:B >JV 

ETUBN 

820 • >TA 

830 MTDIS >TB 

840 • >TC 

850 IF »=q(v«2,0) THEN r=r-q<»»2,2) >QA 

;ELSE GOTO 410 

860 MIDI(rl(y«2),w,l)=" •:HID»(r»iv >DD 

»2>,ll*3,2>s' ":SOUND 1,210,20,0,3, 

3:GOT0 780 

870 ' 

880 'GESTION CLAVIER 



900 Dl 

910 IF PEEKC»B636>=1 THEN k-i.-GOTO 

940 

920 IF PEEK(IB635>=2 THEN k=3:G0T0 

940 

930 k=2:G0T0 960 

940 IF PEEK(M637)=32 THEN y=y-10«( >GX 

y<80) 

950 IF bOk AND k<>2 THEN SOUND 129 >ME 

,0,66,0,1, ,1 

960 b=k:ON k GOTO 970,980,990 >VB 

970 LOCATE w,9:PSINT kl; :»=«-l:PEN >BV 

1:L0CATE »,8:PB1NT kll(kl;:PEN 3:BE 

TUBN 

980 y=yt5a<y>0):BETURN >TF 

990 LOCATE w,9:PBINT kl;;n=w<l:PEN >BV 

1: LOCATE w,8:P81NT kll(k);:PEN 3:BE 

TURN 

1000 ' >ID 

1010 LOCATE «,10:PBINT CHBH22)»CH8 >KK 

l(0l*CHBI(lltCHBI(4)*CHBI(8)«CHBI(l 



>EM 



>HB 



0)*CHBI(98); 

1020 FOB tup=l TO 500:NEIT:G0SUB 8 >TB 

10: :OUT MD00,0:9=2 

1030 ' «G 

1040 'ARRIVEE )IH 

1050 ' >LJ 

1060 PEN 2:1F «<17 OS w>25 OB 9=2 T >HN 

HEN LOCATE 1S, 13:PRI MT-DI S0UAL1 FIE' 

;:|o!(no,l\) = »100:G0T0 1110 

1070 lo!(no,h)=tl!-|o!(no,hl >VJ 

1080 LOCATE 13,13;PBINT 'TEHPS : •; >JI 

USING ■I , ;(|o!(no,h)çl8000); 

1090 PBINT" , ;USING •il';((Jo!(iw,h >n 

I KOD 18000)ç300);:PBINT"";USlNG 

■HVINTII |o! Ino.ti) HOD 300)10.33); 

1100 LOCATE 13, 15:PBINT 'POINTS ; ' >IU 

;1o!(no,h);;L0CATE 13,17:PBINT "MAL 

US : ";r;:LOCATE 13, 19: 1o!(no,h)=to 

!(no,hltr:PBINT'TOTAL : •|]o!(M,h) 

1110 FOB i=15 TO I STEP 6 >BU 

1120 IF q(i,2)>0 THEN HIDIIrKD.ql >VU 

z,0),l>=' ":IIIDI(rl<z),q(i,0)t3,2)= 

* ■ 

1130 NEIT >KG 

1140 CALL liBB0O:CALL UB06:no=no<l: >KM 

GOTO 170 

1150 CLS:IF l>4 THEN 1=1*1: MODE 1:1 >ND 

NK 0,13:PEN 1:G0SUB 1930:G0T0 160 

1160 IF i«)=2 THEN uch=uch<SGNMo! >TU 

(O,l)-Jo!<l,ll) 

1170 PBINT:PBINT:PBINT' REFAIRE L >YT 

A PISTE 'O/Nj 1 

1180 lkl=HKEYI:IF lkl=" THEN 1180 >BN 

1190 IF lkl='o" THEN 160 UF 

1200 CLS:ON SGN(uchl«2 GOTO 2810,2 >KU 

780,2830 

1210 ' >IG 

1220 'CARACTERES >JH 

1230 ' >1| 

1240 SilffiOL AFTEB 94 >PA 

1250 SYMBOL 94,24,60,96,106,255,223 >HV 

,102,60 

1260 STNBOL 95,20,8,196,104,48,24,1 >DR 

2.7 

1270 SYMBOL 96,24,60,70,86.255,251, >GH 

102,60 

1280 STNBOL 97,40,16,35,22,12,24,48 >EZ 

,224 

1290 SYMBOL 98,0,24,60,66,90,255,25 >FU 

5,110 

1300 SYMBOL 99,60,8,44,52,60,36,36, >DA 




36 

1310 SYHBOL 100,16,24,24,26,20,18,1 >ED 

6,16 

1320 STHBOL 101,16,46,46,112,60,144 >GU 

,16,16 

1330 SYHBOL 102,1,1,3,2,7,7,12,16 >Z2 

1340 SYHBOL 103,11,28,63,23,127,123 >JT 

,220,118 

1350 SYHBOL 104,0,0,126,126,64,224, >HB 

224,240 

1360 SYMBOL 105,240,208,56,248,216, >HQ 

124,236,220 

1370 SYHBOL 107,23,23,23,23,23,23,2 >EC 

3,23 

1380 SYHBOL 108,206,208,208,206,208 >NZ 

,208,208,208 

1390 SYHBOL 110,32,73,137,82,36,56, >GK 

64, 128 

1400 SYHBOL 111,4,146,145,74,36,26, >DZ 

2,1 

1410 SYMBOL 112,60,139,137,90,36,24 )GZ 

,24,36 

1420 SYHBOL 114,60,24,36.66,90,36,6 >FU 

7,128 

1430 SYHBOL 115,16,24,0,24,24,216,2 >FY 

19,60 

1440 SYHBOL 116,108,214,145,48,40,6 >JK 

6,230,70 

1450 SYHBOL 117,8,16,108,190,190,25 >JK 

4,124,40 

1460 SYHBOL 116,102,195,189,96,90,6 >HA 

6,60,66 

1470 SYHBOL 119,2,5,6,24,56,112,160 >EW 

,192 

1480 SYHBOL 200,16,16,16,16,16,16,1 >DI 

6,0 

1490 SYMBOL 202,25,15,1,2,3,3,3.1 >ZD 

1500 SYHBOL 203,246,224,0,126,128,1 >JB 

28,128,0 

1510 SYHBOL 204,32,34,20,6,24,136,9 >EQ 

9,20 

1520 SYHBOL 205,0,0,0,12,26,182,142 >DG 

,33 

1530 SYHBOL 206,0,34, 169, 202,62, 44, >GU 

213,42 

1540 SYHBOL 220,8,16,32,80,160,64,1 >FH 

60,64 

1550 SYHBOL 221,8,4,2,5,2,1,2,1 >IT 

1560 ' >YE 

1570 'INITIALISATIONS DIVERSES >TF 

1580 ' >TG 

1590 k«=CHfi»(l6)tCHB»llO)*CHB»U6>: >VJ 



kUll)=k»f • " 

1600 kl«(2)=k»t"b c "ikUCa)»»*" >EQ 

« ■ 

16lÔ FOI z=l TO 6:BEAD sa«(i):NEIT >BB 
1620 DATA o,p,n,a,c,_ >PS 

1630 • >TC 

1640 FOI 1=1176 TO H8C:B£AD bit >TU 
1650 POKE «,VAL("l"*bl»):NErr >I2 

1660 DATA 3E,02,CD,9O,BB,CD,6O,BB,3 >DK 
2, BD.01 , 3E. 03. CD, 90. BB. CD, 60. BB. 32. 
8E.01.C9 

1670 ' >'G 

1680 al=":FOI z=l TO 44:al=a»«CHM >KQ 

(9):NEIT 

1690 FOI 1=0 TO 2:READ c,d:FOI 2=1 >DT 

TO 5 

1700 5p»(l)=3p»(l)tCHU(c)»CHB»(dH >KH 

CHBM9) 

1710 sp»(lt3)=sp»<lt3MCHB»(9MCHM >NF 

(c)»CHI»(d) 

1720 NEIT:NFJT >HJ 

1730 FOI 1=6 TO U:IEAD c:FOB y=l T >KN 

c:BEAD d 

1740 splli|--splli)tCHR»(dl:NEIT:NEI >FW 

T 

1750 ' >YF 

1760 'HENU >TG 

1770 ' >YH 

1780 PEU 3:INK 0, 13:co I =U:CLS >YB 

1790 LOCATE 12,2:PRINT»S K I ' N ' >PV 

E 6 G":PEN 1 

1800 LOCATE 5,10:PIINT "1 -> NOHBEE >ZY 

DE JOUEURS - '2!' 
1610 PEINT TAB(6I"2 -> GEANT":PilNT >AB 

TAB<5)"3 -> SLALOH" 

1820 PBINT TAB(5)'4 -> DESCENTE':PB >KN 
INT TAB(S)"5 -> HOBS PISTE" 
1830 PBINT TAB(5I"6 -> CHALLENGE TO >HB 
TAL" 

1840 INK 3,col:col=col*l:IF col=26 >PI 
THEN col=15 
1650 CALL IBD19:CALL MD19:CALL USD >CH 

IS:CALL MD19:CALL IBD19 

1860 I=VAL(1HKET»):IF 1=0 THEN 1840 >CG 

1870 IF 1=1 THEN 1880 ELSE INK 3,9: >CB 

BOBDEI 13: 1=1-1 :GOTO 1930 

1880 LOCATE 31,10:1F jo! 11,01=2 THE >HE 

N 1o!(l,0)=3:PBIHT"l":ELSE lo'll.O) 

=2:PBINT"2" 

1890 GOTO 1860 >PA 

1900 ' >YC 



1910 'CREATION DES PISTES >YD 

1820 ' >TE 

1930 CLS:LOCATE 15,2:PBIKT*lMITlU.l >TI 

SAT ION': LOCATE 15,10:PBINT"NIVÏAU - 

>":LOCATE 1,5 

1940 ON 1 GOSUB 2670,2680,2690,2700 >CT 

,2670,2660,2690,2700,2720 

1950 i=0:y=0:BESTTJB£ 3U0:CALL IBDO >ZD 

7:0N SQI21 GOSUB 3020 

1960 EBASE q:DIH q(368,2):F0B z=0 T >RC 

f»17:r»(z)=a»:qlz,l>=40:NEIT:i=l 

1970 FOB z=0 TO f STÎP 3 >»K 

1960 b»=BIN»llHTl»ND(l)«2S001),16): >K0 

C»-BIN»IINT1BND(1H2S001).16I 

1990 FOB v=l TO 15:t=VAL(HlD»(b», 16 >KJ 

-»,l)):r=»AL(MID»<c»,16-v,l>) 

2000 IF t=l THEN GOSUB 2630 >UH 

2010 IF t»l THEN GOSUB 2650 >UN 

2020 v=v-2Kw=l):»=0 >PD 

2030 NEIT >KG 

2040 IF (z HOD 61=0 THEN 2080 >UK 

2050 e=lNT(BND(l)«h)*l >QH 

2060 p=INT(BNDU)«10H16 >BD 

2070 ON e GOTO 2210,2300,2370,2430 >ZF 

2080 HlD»(r»(z),20,4)=" " >UC 

2090 HID»(r»tz«l),20,4>=" ■ >ÏJ 

2100 HID»(r»(z»2),20,4)=" ■ >ÏB 

2110 LOCATE 24, 10:PBINT z:NFXT >ZC 

2120 FOB z=6 TO 6:HID»lr«lz»3), 16,2 >AU 

9)=' "tspl(zltal:NEIT 

2130 FOB z=9 TO ll:HlD»(r«((tz 9), 1 >ID 

,44)=" "tsp»(z-6Msp»(zHsp»Iz-9>:N 

EXT 

2140 FOB zz=f»3 TO f*15 STEP 3:F0B >BI 

z=0 TO 2:HlD»(r»(z«zz),l,12)=sp»(z) 

2150 MID»(rllzz»z), 25,20)=" >YF 

"*spt(z«3):NEIT:NEn 

2160 FOB z=3 TO 5:HID«(r*(z). 16,29) >DB 

=• "tsp»lz):NEIT 

2170 SOUND 130,500,100,0,3,3:B£TU11N >CP 

2180 ' >ÏD 

2190 'POSTES >YÏ 

2200 ' >IG 

2210 IF O150 THEN 2570 >PR 

2220 IF p>22 OB p<19 THEN p=22 >UL 

2230 IF s=0 THEN q(z»l,l)=p:s=l:ELS >HD 

E GOTO 2250 

2240 HID«(rl(z),p,5)=" e ":GOTO 2 >CT 

260 

2250 o(z*l,0)=p:3=0:HID»(r»(z),p,5) )JP 

=" d ■ 

2260 HID»(r»Iz»l),p,5)=" "tCHR»(20 >IK 



0>t" ":GOTO 2100 




2270 ' 


>ÏD 


2280 'DOUBLES POSTES 


>ÏE 


2290 ' 


>ÏF 


2300 IF O330 THFJ 2S10 


>PK 


2310 IF p«6>i THFJ p=i-6 


>RJ 


2320 lllDl(rllz>,p,10)=" e e • 


>EZ 


MDI(r»(ztl),p,10)=" "tCHR<(200)t 




"»CHR«(2O0>t" ":q<z»l,0)=p:q(. 




*i,l)=p»5 




2330 GOTO 2100 


>U 


2340 ' 


>ÏB 


2350 'BOSSES 


>ÏC 


2360 ' 


>n 


2370 IF p*5>l THEN p=i-5 


m 


2380 HID»<r»lz),p,BI=" •+CWU(221 


>DJ 


>CHR»(218HCHR»(21B>*CHR»(21B>*CKR< 




(220H" " 




2390 GOTO 2090 


>NC 


2*00 ' 


>IJ 


2410 'SAPINS 


>a 


2420 ' 


>u 


2430 FOR ï=l TO 7:t=VAL(NID»(b», 16- 


>PU 


v,l)):v=v»15 




2440 IF t=l THE» GOSUB 2630 


>UÏ 


24S0 v=ï-IS:»=w-3»(ii=1):w=0 


>wu 


2460 NEIT:n=ii-l:MID»(r»(z),n,4>=" 


)GA 


":NID«(r»(ztl),n,4>=" ■ 




2470 MIDI(r«(z»2),n,4)=" \GOTO 


>D8 


2110 




2480 ' 


>ÏG 


2490 'BROUSSAILLES 


>ÏH 


2500 ' 


>IK 


2510 »=INT(RND(l)«10t:IF p«u>l THEN >GQ 


2510 




2520 HIDKrtlz), 18,4)=" ■:HI0t(r 


>TD 


»lztl),p,wt4)=" •»CHM(204|tCHi« 




( 205 1 *CHM ( 206 ) ♦CHR» ( 205 1 «CHR» ( 204 ) 




>CHRI{204)»CHR»(206HCHRI(20*)tCHRl 




i 2061 «0181(205) 




2530 GOTO 2100 


>IU 


2540 ' 


>ro 


2550 'ITEMS 


>ÏE 


2560 ' 


>IF 


2570 IF CINT(RND(1))>0 THEN 2300 


>ïï 


2560 «=pt{(p>20H5):w»=IIIT(RND(lH5 >KB 


00)lHIM(r»(l),ll,6)"" ■»CHM((wwçl 




O0H115H" • 




2590 q(z,0)=w:q(z,2)=ww:G0T0 2090 


>BU 


26O0 ' 


>ÏA 


2610 'SAPINS DECORS 


>ÏB 


2620 ' 


>K 



^r 



2630 MID»(r»(zl,v,2)="fh":NlD«(r»(z >RA 
♦l),».2J="gi» 

2640 NID«(rllzt2),»,2)=CHM(202)lCH >FN 

R«l203):w=l:n = »»3iRETURN 

2650 l1ID»<rl(z>,*4-ï,2)="fh»:NID»tr >ZB 

•<t»l),44-»,2)= , |l" 

2660 HlD»(r»(z»2),**-v,2)=CHK»(202) >LE 

*CHR»(203):w=l:i=40-y:RETURN 

2670 PRINT TAB(19)"GEANT":f=252:h=2 >HD 

:RETURN 

2660 PRINT TAB(19)"SUL0H":f=150:h= >NK 

iiKTim 

2690 PRINT TAB(18)"DESCENTE":f=300: >QF 

h=3:6ETURN 

2700 PRINT TABU7)"H0RS PISTE":f=35 >UR 

hh^rRETURN 

2710'- >y C 

2720 'TABLEAU DES SCORES >ÏD 

2730 ' > TE 

2740 MODE 1:INK 0,13:PEN 3:PRINT TA >gE 

B(12);'TABLEAU DES SCORES":PEN 1 

2750 LOCATE 12,6.-PRINT"ù GNT ù SLM >P0 

ù DSC ù H-P ÙVLOCATE 3,7:PRIMT STR 

INGI(34,*5> 

2760 LOCATE 3,8:PRINT"J0UEUR 1 ù»;: MIL 

np 0: GOSUB 2870 

2770 LOCATE 3,9:PBIKT STRING»(34,45 >WE 

):LOCATE 3, 10:PR1NT" JOUEUR 2 ù"i:np 

=1:G0SUB 2870:L0CATE 3,U:PRINT STR 

ING»<34,*5> 

2780 FOR hu=2 TO h:lo!(0,l)=to!(0,l >FD 
)»j°!<0,hu):joHl,l)=jo!U,lHjo.'(l 

,hu):NEIT 

2790 IF no=l THEN PRINT:PRINT" POUR >ÏN 
TON MIROIR, NARCISSE.. .":G0TO 2810 

2800 ON SGN()o!(0,l)-)ll!(l,l))U GO >MP 

TO 2820,2830 

2810 PRINT: PRINT: PRINT" JOUEUR 1 V >DU ' 

AINQUEURVGOTO 2840 

2820 PRINT:PRINT:PRI«T" EGALITE":G >PG 

OTO 2840 

2830 PRINT:PRINT:PRINT" JOUEUR 2 V >TY 

AINQUEUR" 

2840 PRINT:PRINT:PRINT" PRESSER UNE >RJ 
TOUCHE" 

2850 GOSUB 120:CALL lBB06:iach=0 >ZA 

2860 MODE 1:PAPER OiGOSUB 1780:G0T0 >FI 
160 

2870 FOR hu=l TO 4:PRINT USING "III >AV 

*i"; jo!lnp,hu);:PRINT "ù*j :NEIT:BET 

URN 

2880 ' >ZA 



2890 'INITIALISATIONS m 

j 2900 ' # > TD 

2910 STHBOL AFTER 140:PEN 1:H0DE 2: >FC 
END 

2920 DATA 102,104,103,105,202,203 >TT 

2930 DATA 9,15,1,9,9,101,9,101,15,3 >AA 

2940 DATA 10,15,1,9,9,101,216,101,2 >GG 

51,15,3 

2950 DATA 11,15,1,248,35,124,9.124, >KC 

35,35.15,3 

2960 DATA 13,107,22,0,24,65,82,82,7 >TU 

3,86,69,69,24,108 

2970 DATA 13,15,2,200,9,9,9,9,9,9,9 >JN 

,200.15,3 

2980 DATA 13,15,2,200,9,9,9,9,9,9,9 >JP 

,200,15,3 

2990 ' >a: 

3000 'HUSIOUE > ff 

3010 ' >K 

3020 ON y GOTO 3030,3030,3060,3040, >GT 

3040,3040,3040,3040,3040,3040,3040, 

3060,3050,3050,3050,3050,3050,3050, 

3050,3050,3050,3050,3050,3050,3050, 

3050,3050,3060,3050,3050,3050,3050, 

3050,3090 

3030 READ a,b:SOUND 2,a,b,0,3,2:y=y >KH 

U:ON SQ(2> GOSUB 3020:RETUIN 

3040 READ a: SOUND 2,a,22,0,3,2:y=y« >JA 

1:0N SQI2) GOSUB 3020:RETURN 

3050 READ a,b:S0UND 2,a,b,0,4,3:y=y >K8 

»!:0N SQ(2) GOSUB 3020:RETURN 

3060 ON I GOTO 3070,3070,3080,3080, >VL 

3080,3080,3080,3060,3090,3090,3090, 

3100 

3070 y=0:i=nl:R£STORE 3UO:GOT0 30 >FB 
30 

3080 y=4:«=nl:REST0RE 3120:G0T0 30 >FJ 

40 

3090 y=12:i=z«l:REST0RE 313O:G0T0 3 >FC 

050 

3100 y=29:«*B:REST0RE 3140.-G0T0 305 >EA 



3110 DATA 716,44,902,22,902,22 >NÏ 

3120 DATA 716,716,638.716,602,716,5 >FI 

36,602 

3130 DATA 716,44,638,9,625,11,636,1 >RN 

3,638,44,716,22,716,22,716,22,716,4 

4,602,9,589,11,602.13,602,46,636,22 

,638,22,638,22 

3140 DATA 379,21,402,67,451,22,478, >JJ 

22,451, 67a 



13 



1000 'IIHIHIIIIHII) MHti ;(|; 

III Qv 

1010 'm ""■^k.IITiEUE )Œ 

III 

1020 '••• J.BFINGUT 0CT0BBE 1968 >IF 

■Il 

1030 '■■■ REDEFINITIONS LETTBES >IG 

m 

1040 'llliiiiiiilllllllllllltllllll >IH 

m 

1050 RE5T08E 1110 >LH 

1060 SYHBOL AFTEB 65 _ >PÏ 

1070 F0B 1=97 10 122 i>P >MJ 

1080 F0B J=0 TO 6 'ML ><* 

1090 BEAD X:TI(J)=X ï? >HQ 

1100 NEIT >KD 

1110 SYMBOL I,TXK».TH1>,TX(2>.TI( >AF 

3>,TK4),TX(5),TI(6) 

1120 NETT >ff 

1130 DATA 24,36,66,126,66,66,66,124 >MH 

,34,34,60,34 

1140 DATA 34,124,28.34,64,64,64,34. )FP 

28, 120 

1150 DATA 36,34,34,34,36,120.126,64 >GB 

,64,124 

1160 DATA 64,64,126,126,64,64,124,6 )KB 

4,64,64,28 

1170 DATA 34,64,78,66,34,28,66,66,6 >HH 

6,126,66 

1180 DATA 66,66,28,8,8,8,6,8,28,14, >KB 

4,4,4,4,68 

1190 DATA 56,68,68,72,112,72,68,66, >HJ 

64,64.64 

1200 DATA 64,64,64,126,66,102,90,90 )JG 



IlTREUR 



Pour obtenir quelques effets 

graphiques sur vos titres de 

présentation, il n'est pas 

nécessaire d'utiliser un utilitaire 

de dessin ou de programmer une 

série de DRAW et de PLOT. 

En tirant habilement parti du 

programme ci-dessous vous 

créerez de magnifiques titres. 

A vous d'ajouter éventuellement 

des routines de sauvegarde 

d'écran et d' impression 

sur papier. 



i valable f°" 



&&£' 'SSi 3sTS 



s>CPCbV2JM 
,66,66,66 

1210 DATA 66,98,62,74,70,66,66,60,6 >KA 
6,66,66,66 

1220 DATA 66,60,124,66,66,124,64,64 >FA 
,64,60 

1230 DATA 66,66,66,74,68,58,124,66. >J2 
66,124,72 

1240 DATA 68,66,60,66,64.60,2,66,60 >GU 
.£■,62,8,8 



TITREUR 



12S0 DATA 8,6,8.8.66,66,66,66,66,66 >JG 
,60,66,66 

1260 DATA 66,36,36,24,24,66,66,66,9 >HH 
0,90.102 

1270 DATA 99.66,66,36,24,36,66,66,3 >GL i 
4,34,34 

1280 DATA 28,8,8,8,126,2,4,24,32,64 >DN 
,126 

1290 'iiniiHiiiiHiiiiiiiiiiiiin >YE 
m 

1300 '••■ REDEFINITION MOTIFS >IG 
m 

1310 'iliiinilliillllllillllllilii )IH 
m 

1320 SYHBOL 200,0,0,56,56,56 >ÏU 

1330 SYMBOL 201,0,124,124,124,124,1 >CA 
24 

1340 SYMBOL 202,0,0,56,40,56 >V0 

1350 SYMBOL 203,0,124,68,68,68,124 >AW 
1360 SYMBOL 204,0,0,16,56,16 >VU 

1370 SYHBOL 205,0,16,56,126,56,16 >ZH 
1380 SYHBOL 206,0,48,120,252,252,12 >EB 
0,48 

1390 SYMBOL 207,0,0,24,36,36,24 >IM 

1400 SYMBOL 208,0,24,36,66,66,36,24 >BX 
1410 SYMBOL 209,60,102,195,129,129, >LY 
195,102,60 

1420 SYMBOL 210,0,36,90,36,36,90,36 >BB 
1430 SYHBOL 211,0,90,36,90,90,36,90 >BU 
1440 SYHBOL 212,16,84,56,254,56,84, >DF 
16 

1450 SYHBOL 213,40,40,198,0,196,40, >CV 
40 

1460 SYHBOL 214,0,168,84,166,84,168 >EF 
,84 

1470 SYHBOL 215,0,102,102,24,24,102 >ED 
,102 

1480 SYHBOL 216,0,24,24,102,102,24, )CI) 
24 

1490 SYHBOL 217,0,66,36,24,24,36,66 >BG 
1500 SYHBOL 218,0,60,90,102,102,90, >CE 
60 

1510 SYHBOL 219,0,40,108,16,108,40 >AB 
1520 SYHBOL 220,0,73,42,20,107,20,4 >EZ 
2,73 

1530 SYHBOL 221,0,54,85,107,20,107, >FH 
85,54 / 

1540 SYHBOL 222,0,62,73,93,118,93,7 >EG 
3,62 

1550 SYHBOL 223,0,0,54,34,8,34,54 >ZY 
1560 SYMBOL 224,0,20,54,127,20,127, >FV 
> 54,20 
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owwn 




1570 SYMBOL 225,0.42.73,0,107.0.73, >CK 

42 

15B0 SYMBOL 226,126,195,153,165,165 >HN 

,153,195,126 

2000 'iiimiiininiiiiiiniiiiin >|£ 

if i 

2010 'm TITBE ET INSTRUCTIONS >IF 

Iffl 

2020 'ifiiiiiittiiiiiiiiiiiiiiiuti >XG 

III 

2030 T»:"T:TREU8":G8SUE 2640:U=6:C -SB 

F=13:A=2:C2=26:B=2:C3=0:D=6:I»="N": 

EC=1:G0T0 2370 

2040 CLS:M0DE 1 : BORDES 13:INK 0,13: >TD 

PAPER 0: INK 1,0 

2050 PRINT "VOUS POUVEZ ENTRER UN T )TP 

EXTE DE 4 LIGNES AU MAXINUH. - / 

2060 PRINT:PRINT 'SEPAREZ LES MOTS >YZ 

PAR UN ESPACE. " 

2070 PRINT:PRINT "SI VOUS VOULEZ PL )UC 

USIEURS MOTS SUR LA MEME LIGNE S / 

EPABEZ-LES PAR LE SIGNE i" ' 

2080 PR I NT : PR I NT-CHO 1 S i SSEZ LA TAIL >KK 

LE" 

2090 PBINT'CHOISISSEZ LA COULEUR DU >NL 

FOND" 

2100 PRINT'CHOISISSEZ LE MOTIF 1 ET >VZ 

SA COULEUR" 

2110 PRINT'CHOISISSEZ LE MOTIF 2 ET >VB 

SA COULEUR" 

2120 PRINT'ILE MOTIF 2 SE PUCE SUR >UR 

LE MOTIF 11" 
2130 PRINT:PR1NT"ENTREZ LE DECALAGE >M 

ENTRE LES 2 MOTIFS: DE -12 A 12.' 
2140 PRINT:PR1NT"V0US POUVEZ ENSUIT >KP 
E CHOISIR UN TITRE ECRIT DROIT 
U INCLINE.EN GRAS OU EN MAIGRE." 
2150 LOCATE 10,2S:PBINT"appuyez sur >BV 

une touche" 

2160 CALL IBB1B:CLS >NU 

2170 'ititiiiiiiiitliititiiitiiiiu >YC 
m 

2180 >«■ ENTREE DES PARAMETRES >YD 

m 

2190 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >ye 

m 

2200 FOR 1=1 TO 9:L0CATE U4.15:PRI )EC 
NT CHB»(199t|):LOCATE H4-1,17:PRIN 
T l:NEIT 

2210 FOR 1=10 TO 18:L0CATE H4-36.1 )NÏ 
9:PRINT CHR»U99<I):L0CATE U4-37.2 
1:PRINT l.-NEIT V 



C2220 FOR 1 = 19 TO 27:L0CATE 1.4-72.2 >NG 2440 FOR 1=1 TO N:FOB J=l TO LUI 



3:PRINT CHRH199»I):L0CATE [«4-73,2 

5:PRINT l:NEIT 

2230 LOCATE 1.1 : 1NPUT "TEJTE:":TI )Bfl 

2240 GOSUB 2640 >jc 

2250 LOCATE 1,3:INPUT "TAILLE:";LA >CZ 

2260 LOCATE 1,4:INPUT "COULEUfi DU F >NG 

OND:";CF 

2270 LOCATE 1,5: INPUT "MOTIF 1";A >BC 

2280 LOCATE 20,5:INPUT "COULEUR:";C >EZ 

2 

2290 LOCATE 1,6:INPUT "MOTIF 2":B )BH 

2300 LOCATE 20.6:INPUT "COULEUR:";C >EU 

3 

2310 INPUT "DECALAGE:";D 

2320 INPUT "INCLINAISON 0/N":l» 

2330 INPUT "ECRITURE GRASSE(l) OU 



>n 

>AF 

>UD 



ai<re(2l:\ec 



/ 




SUR MINITEL 

36 15 

<f Code MHZ 
4**. 



2340 'lllllllllflllllllliiiiiiniii >yfl 
III 

2350 'm CADRAGE ET IMPRESSION >YC 

m 

2360 '••■•iiiiiiiiiiiiiiiiiiiiuiii >yn 

lu 

2370 I»=UPPES$IUI:1F U="0" THEN I >WX 

N=l:IC=-2 ELSE IN=0 

2380 IF EC=1 THEN T»=UPPER«(T«> ELS >TN 

E T»=LOUER»(TI) 

2390 IF M=l THEN T«I1)=TI ,BH 

2400 IF M=2 THEN TH1I=LEFTIIT«,KI1 >Hk 

)-l):T»l2)=BIGHT«(T«,L-Cll)l 

2410 IF M=3 THEN T$(1>=LEFT$(T«,K[1 >GL 

)-D:T»l3)=filGHT»(T»,L-KI2)):T»(2)= 

MID«(T»,K(1)*1,KI2)-KI1)-1) 

2420 IF M=4 THEN TI(11=LEFT«(T«,K(1 >UU 

)-ll:Tf(4)=RIGHT»(T»,L-l!l3)l:T«(2)= 

NID»(TI,K(1H1,KI2)-K(1)-1):T«(3)=M 

ID»IT»,KI2)H,K(3)-KI2I-1I 

2430 FOR 1=1 TOM:L(l)=LEN(T»(l)l:N >FM 

EXT 



,J,1)= 



>YU 
THEN Ml >TC 



2450 IF MID«IT»(II, 

D»(T»(II,J,1I=" • 

2460 NEIT:NEIT >u 

2470 LI=0:FOR 1=1 TO H: IF L(I)>LI T >UF 

HEM LX=LII):fil=l 

2480 NEIT >LF 

2490 Al»=CHR«ll99tA):A2«=CHR»ll99tB >CZ 

) 

2500 MODE 1 : BORDER CF: INK 0,CF:PAPE )TL 

R 0:INK l,d:PEN 1 : 1 NK 2,C2:INK 3.C 



^ 



w 



2510 PEN 1 KA^r > F „ 

2520 GOSUB 2700 ^^ >|j| 
2530 Hlfil) = (640-L(RlH16iLAI/2:«HIL >ND 
E H(R1K10:LA=LA-1:H(RI)=1640-L(R1J 
<16iLA)/2:BERD 

2540 GOSUB 2700 >lc 

2550 FOB 1 = 1 TO M:HII) = (640-L(l)ll6 >NH 
•LAI/2:NEXT 

2560 FOB 1=1 TO M:LOCATE 1.1:PRINT >GZ 
T»(i) 

2570 FOR K=400 TO 384 STEP -2 )UB 
2580 R=R»2:IC=IC»2 >Ng 

2590 FOR J=0 TO 16«L(I) STEP 2 >VD 
2600 IF TESTIJ,K)=1 THEN PRINT CHRJ >K 
(23HCHR«(3)::TAG:M0VE H(l)tJlLA-IC 
HN,VCI)-RiLA.3:PRINT A1»;:M0VE Hll 
HJiLA-lCHN»D,VII)-BiLA-D,2:PRlNT 
Ail; :TAGOFF: PRINT CHB»(23)«CHB$(0l ; 
2610 NEIT:NEIT:R=-2:IC=-2:PEN 0:LOC >GK 
ATE 1,1:PRINT STRINGt{|lil,143l:PEN 
1:NEXT 
2620 SOUND 1,60,40, 15:CALL IBB18:CL >«A 
S: GOTO 2040 

2630 UHILE X<10:U=U-1:I=(400-MIU >ER 
«16l/(nl):yEND:RETUBN — -■ 
2640 M=l:R=-2 ^^ >JD / 

2650 L=LEN(T»> > *& >ug 
2660 FOR 1=1 TO L:IF MIDUt», l,ll=" >ZA 
" THEN M=Mtl:K(M-l)=l 
2670 NEXT > L G 

2680 IF M>4 THEN PRINT "LE TITRE NE >EC 
DOIT PAS COMPORTER PLUS DE 4 LIGNE 
S":FOR t=0 TO 20O0:NEXT:PRINT CHR»< 
7l:CLS:GOT0 2200 , iT 

2680 RETURN ,^1 



2700 y=(400-16i|am/(iU) 
2710 FOR 1=1 TO i 
2720 v(il=400-(yiitl6Hai(i-llJ 
2730 NEIT 
■* 2 MO RETURN 



>GA 

>TE/ 

>EG 

>M 

•U 

>FG- 



JEU 



hh*& 
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Laurent GIGNOUD 



Traverser un champ de mines 

sous le feu nourri d'un 

canon antichar : 

quelle charmante balade 

en perspective ! 

Abord de votre véhicule de sauve- 
tage, il vous faut donc slalomer 
entre les dangereuses mines, tout en 
évitant les non moins meurtriers bou- 
lets de canon qui pleuvent sur votre 
tête. Attention, le canon ne tire pas au 
hasard ! En effet, il est un danger per- 
manent car il suit tous vos déplace- 
ments. 

Mais pourquoi donc courir tant de 
risques ? Tout simplement pour récupé- 
rer un prisonnier allié qui se trouve de 
l'autre côté du champ, et qui sursaute à 
chaque explosion. 



iiffiiiiiiifitififii >LA 



2u 



MINES 



1987 



>LB 



30 IHHIHHIIHHIIIHIIimiHI >LC 
1111 € fë? 

40 rtÛDfc i ^~~~~~Hfcsrîy ' >BG 

50 as {ÊfcffioL- >w 

60 BORDES ^^^^ > VK 

70 INK 0.0: 1 NK 1,11: 1HK 2,6: IK* 3,2 >BV 
3 

80 FQB 1=1 T0 15 5TEP 2: IKK l.BNDU >TC 
(•16+IjPLOT l,226-i-2:DBAW 639,226- 
i%UVW 32Û,225:DBAy 1,226-1"2:P 
LOT 32Û,225:DRAU 639,226- i'2, 1:NEIT 
:PLÛT 320,225.DRAW 100,1, liPLOT 320 
,225:DBAW 540,1, 1:PL0T 320, 225 : DBAM 
250,1, liPLOT 32Q,225:DBAW 390,1,1 
90 INK 1,23: INK 3,26 >IU 

100 PEN 3:L0CATE 13,1:PBINT 'LAUBEN >QX 



Vous pouvez déplacer votre véhicule 
(qui avance automatiquement) vers le 
haut ou vers le bas avec le joystick ou 
les touches 19 (haut) et 22 (bas). 

Heureusement, les mines ne sont 
pas indestructibles : si un boulet les 
touche, elles explosent et deviennent 
inoffensives. 

Chaque mine touchée vous rapporte 
5 points. 

Un prisonnier sauvé vous rapporte 
50 points. 

Si vous accomplissez votre mission, 
vous passez au secteur suivant, plus dif- 
ficile : 10 mines en plus et le prisonnier 
est décalé d'un cran vers le canon. . . 

Score, Hi-score et secteur sont affi- 
chés en bas de l'écran. 

Le premier programme se sauve- 
garde sous le nom de "mines", le se- 
cond sous le nom de "mines2". Un con- 
seil : repérer dès le départ où se trouve 
votre prisonnier afin de ne pas le faire 
détruire par le canon en vous mettant 
sur la même ligne. 



T G1GN0UD' 




110 LOCATE 17,3:PBINT"Présente" 


m 


120 FOB i=0 TO 180 STEP 1.5 


>TP 


130 DEG 


>W 


140 INK 2.RNDI1/U6.1 


>NQ 


150 011GIN 320,225 


>KJ 


160 DBAU 5OiC0S(i),5O*SIN(l),2 


>U 


170 NEIT 


>E0 


180 INK 2,2 


m 


190 PEN 2:L0CAIE 15,7:PBIHT "H 


)JK 


N E 5" 




200 FOB V=15 T0 5 STEP -1 


>QD 


210 SOUND 1, «50, 40, V, 0,0, 25 


>IK 


220 NEIT 


m 


230 FOB 1=1 TO 2000:NEJT 


M 


240 ' 


>K 


250 LOCATE 14,24:PEN 3:PBlNT'Bèg 


es >PF 


(0/N) ?• 




260 a»=INKETI:A»=UPPEÏ»<a») 


m 


270 IF «•=" THEN 260 


m 


280 IF a»="0" THEN 310 


>NI 



290 IF •♦«•H* THEN BUN'HINES2 >IK 

300 GOTO 260 >TH 

310 'lllivilllili >BE 

320 ' REGLES >ÏF 

330 'i hii >BC 

340 H0DE 1 >HF 

350 INK 1,19:PEN 1:PBINT CHB»I24I;S >TJ 
PC(17);CHE«12*) ;' MIMES ■;CHB»(24); 
SPCI16);CHBt(24l 

360 PEN 3:PBINT"Vous devez,* bord d >ÏA 
e votre véhicule de sauvetafe, reçu 
pérer un prisonnier allié." 
370 PBINT:PBINT'Pour cela, Il vous >JF 
faut traverser unchaap de aines 
sous le feu d' un canon antichar. 

380 PBINT:PBINT*«ous pouvez déplace >CK 
r votre véhicule en haut ou en bas 

avec le joystick ou les touches 1 
9 et 22. Positionnez le sur le pris 
onnier pour le sauver." 
390 PBINT:PBINT'Chaque aine touchée >TQ 

par le canon = 5 Pts" 
400 PBINT'Un prisonnier sauvé " 50 >TB 
Pts." 

410 PBINT:PBINT"Lorsqu' un prisonni >TV 
er est sauvé, vous passez au sect 
eur suivant (< difficile).* 
«20 LOCATE 1,24:PEN 1:PBINT CHBII24 >HP 
)jSPC(12)iCHB»(24li" BONNE CHANCE ! 

■;CHfi»[2»>;SPC<12);CHfi»(24> 
430 CALL IBB06:BUN'MINES2 >UU 



Mthf& t 



10 llltHIIIIIIIIHIIIIIillDIIIK >LA 

mil 

20 '• >LB 

i 
30 't MINES >LC 

i 
40 '« >LD 

i 
50 '< LGIGN0UD >LE 

i 
60 '• >LF 

i 
70 »• OCT 87 >LG 

i 
60 '* >LH 
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90 'mimmiimmimmmiit >U 
Iflil 

100 MODE 1:WIND0U il.2.38.2*,2»:PAP >HQ 
El 11,0 

110 ll=29:coul = lB:sc=0:B=70:sect=l: >EV 
INK 0,0:10»DEB 0.-1NK 1.26:11* 2,11: 
INK 3,18 

120 HtlIllllllHllfHIIIIIIIIHII >U> 

mil 

130 'I DESSIN CAME >B£ 

i 
140 'miimmmmimmmm >Rf 
lilll 

iso as >u« 

160 PLOT 639,0,1 >CA 

170 DBAN 639,399 >CJ 

160 DBAU 0,399 >KE 

190 DBAU 0,0 >IB 

200 DBAU 639,0 >LE 

210 PLOT 0,48:DBAI< 639,40 >TL 

220 KET 138,'speed key 32,2'tCHfilll >GB 

3) 

230 ' >|f 

240 SYKBOL 2SS, 0,60, 66, 90, 90, 66, 60, >CF 



2S0 SVHBOL 264,126,36,126,251,251.1 >KG 

26,36,126 

260 'llimmmtmmiimmm )BJ 

• Iffl 

270 '■ PLACEMENT MINES i PBISOHNI >BK 

ES • 

280 'IIIMIIIIHIIIIIHIIIIHHIIH >TA 

lllffl 

290 SPEED KET 4,4 >LH 

300 yy=INT(RHDi20»2:IF yy=10 THEN >EG 
300 

310 IMK 3,coul:atne=0:il=39:i=2:y=l >FI 


320 VHILE nlned >LP 

330 lo=INT(BIDl38)t2 >PB 

340 yo=INT(INDi20>«2 >PU 

350 IF 10=3 AND yo=10 THE» 380 >IM 

360 LOCATE ic.yo >LD 

370 PEN 3.-PBINT CHBN255) >TK 

380 ■llw=ilne«l:UEH> >0Z 

390 u=ml :1F 11)35 THEN n=35 >ZK 

400 ' >1E 

410 LOCATE I1,3,1:PHI1,1:P1|NTI1,' >TH 
SCOIE VPEN 2:L0CATE 9,2«:PB1NT se 
420 L0CATEI1,14,1:PENI1,1:PBINTI1,' >Z» 
HISCOBE VPEN 2:LOCATE 22,24:PBINT 



hsc 

430 L0CATEI1,2M:PENI1,1:PBINTI1," >BQ 
SECTEUfi VPEN 2:L0CATE 36.24:Pil«T 
MCt 

440 PEN 2:L0CATE zi,yy:PBINT ■ ";CH >KM 
11(2481 

450 'mimmimmimmmm )BK 
mil 

460 '■ BOUCLE PRINCIPALE >TA 

I 

470 'lIOIHHIItlIHHIIlillllllll )TB 

mu 

400 LOCATE il.y:yl=y >QH 

490 PEN 2:P!INT CHMI157) >TN 

500 FOI 1=37 TO I STEP -1 >IB 

510 LOCATE l,yl:PBlNT CHB»(144);' ■ >CI 

520 IF (l=B0UNDm AND y=yl) THEN G >KA 

OSUB 640 

530 IF 1-1=H AND yl=yy THEN 890 >ÏQ 

540 IF TEST((l-l)H6-8,40O-U6iylH >EF 

61=3 THEN sc=sc»5:G0T0 870 

550 GOSUB 680 >JD 

560 NEIT >EG 

570 LOCATE i,yl:PBINT " VIF ÎESTK >L2 

16l(lH))-8,400-(16«y)»6)=3 THEN LO 

CATE i,y:PBINT " Vi=nl:G0T0 640 E 

LSE i=z«l:LOCATE i-l,y:PBINT " VU) 

CATE i,y:PBINT CHMI254) 

580 IF (i=«i AND y=yy) 01 (l'zi«l A >TG 

NO y=yyl 01 (i=ii<2 AND y=yy) THEN 

730 

590 LOCATE il,yy:PEN 2:PIINT " ";CH >KK 

81(249) 

600 GOTO 400 >ÏG 

610 'mmimmmimimmm m 

mu 

620 'l SOUS-PBOGBAHMES )BJ 

l 
630 iilliliiiiiiiiiiiiititilllilli >|K 
mu 

640 SOUND 1,1000, 50, 15,,, 15: FOI d=l >ID 
TO 41:L0CATE i,y:PBINT CHM(24);CH 
I»(238):CHM(24I:L0CATE l,y:PIINT C 
HB«(238):»EIT:F0I »=1 TO 2000: NEIT: 
CLSI1:PBINTI1.*Vdus avez perdu...' 
650 IF 3c)hsc THEN hsc=sc >UD 

660 FOB »=1 TO 3000:NHT >B» 

670 CLSIliPBINT 11, 'Votre score : • >EJ 
:L0CATE 15,24:PEN 2:PBIMT sc:F0B w= 
1 TO 4000: NEIT: GOTO UO 
660 'imimimiimimiimim )TE 



690 IF INXET(19)=0 01 IMŒT(72I=0 T >B0 
HE» LOCATE l,y:PBINT ' V LOCATE il, 
y:PBINT ■ VIF TEST((16u)-B,4O0-(l 
6Ky-l)l»6)=3 THEN y=y-l:G0T0 640 E 
LSE y=y-l:IF y<2 THEN y=2:IETUBN 
700 IF INKEÏ(22)=0 01 IWŒÏ(73)=0 T >FU 
HEN LOCATE l,y:PIINT ' VLOCATE il, 
y:PHNT ■ VIF TEST((16H>-8,400-(1 
6Ky<l))<6)=3 THEN y=ytl:G0T0 640 E 
LSE y=ytl:IF y>21 THEN y=21:BETUBN 
710 LOCATE l,y:PBINT CHBK254I >ïï 

720 BETUBN >ZE 

730 'iiiimiiiiiiiiiiiimiiiiiiii >TA 
•mi 

740 FOB N=l TO 6 )IA 

750 FOI o=200 TO STEP -10 >TH 

760 SOUND 1,0,1,15 >NV 

770 »EIT:NEIT >CB 

780 CLS ll:PBINTIl:PIINTil, 'Bravo ! >ZA 
VFOB v=l TO 2000:NHT:CLSI1:PIINTI 
1,'Le prisonnier est sauvé." 
790 FOB v=l TO 3000:NEIT >Bfi 

600 sc=sc«50:sect=secttl:CLSIl:PBIN )EV 
TU, "Passez aalntenant au secteur ' 
:L0CATE 30,24:PEN 2 : PS I NT sect 
810 coul=sect<3:a=a«10 >BH 

820 FOB ll=l TO 3000: NEIT: GOTO 150 >AH 
630 'mmiimmimimimiiii >tb 
mu 

640 IF TESTlli -1H16-8, 400-(16<y)<6 >BF 
1=3 THEN SOUND 1,1000,50, 15,,, 15:L0 
CATE i-l,yl:PBINT CHB»(23B)i' VGOT 
400 

850 BETUIN >ZJ 

860 'immiimmmiimtmm >TE 
mu 

870 SOUND 135,600.20, 10,, ,15:L0CATE >TV 
ll,yl:PBINT CHBI(238)i" ":GOT0 57 


880 'miimmimmmmmm >TG 
mu 

890 SOUND 1,1000,50, 15,,, 15:F0B i=l >QE 
TO 31:LOCATE «,yy:PBINT ■ ';CHB»( 
24>;CHfi«(238>;CHM(24):L0CATE ml, 
yy:PIINT CHU (2381 :»EIT 
900 CLSIl:PBINTIl,'Vous avez perdu. >PW 
..VFOB »=1 TO 3000:«EIT: IF sc)hsc 
THEN hsc=9c 

910 CLSI1:PBINTI1, "Votre score : V >DN 
LOCATE 15.24:PEN 2:PBINT sc:F0B v=i 
TO 40O0: NEIT: GOTO 110- 
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MODE D'EMPLOI 

Le programme demande d'inscrire 
1 2 mots à étudier (9 lettres au 
maximum, voir le grand frère ou la 
grande sœur). Il faut appuyer sur shift 
pour obtenir les lettres accentuées (voir 
modèle pour aménagement du clavier 
QWERTY). Puis vient la règle du jeu. 
Il suffit alors d'appuyer sur la touche 
<ESPACE> et c'est parti. 

Il y a 3 séries de 4 mou; à écrire en 
bas à droite de l'écran dans le bon ordre 
comme le modèle en ramassant les let- 
tres et en évitant les obstacles. 

Chaque série utilise les quatre mots 
qui apparaissent chacun à leur tour à 
l'écran pour un même tableau. Il faut 



faire vite car le temps est limité. On 
trouve quatre tableaux par série : 1er 
tableau arbustes et champignons, 2è 
tableau arbustes, champignons et ma- 
res, 3è tableau , les trois obstacles + le 
chien. Il faut simplement éviter le chien 
qui vous ignorera. 4è tableau (le chien 
est remplacé par le loup). Attention, il 
attaque ! 

Le meilleur score des quatre ta- 
bleaux d'une même série est indiqué à 
l'écran. 

Le programme tourne sans arrêt sur les 
3 séries qui se répètent. 

■ N.B. : Pour donner du tonus au 
loup, supprimer la ligne n° 410. Pour 
un clavier AZERTY, ne pas taper les 
lignes 760 à 815. 



Pour aménager le clavier QWERTY (6128) 



1 ' lettres accentuées >FA 

2 GOSUB 750 >VG 

3 'présentation >FC 
6 DIB 11(10), al(12),b(12l,al»(12) >ÏG 
10 ENV 1,5,1,5,5,-1,5 >W 
50 bl CHMI32) >HF 
60 al=CHB».:*S) >VK 
90 c«=CM»(207):d«--CHM<229>:ei=CH8 >HC 
1(231 

95 («=CHM(2*9):i»--CKM(250):eH=CH >AII 
M(251):|1»=CHB«(252I 
9e 'aots >HE 

1NK 0,1: INK 1.6: I NK 2,26 >IM 

100 «ODE 1:PAPE! 0:PEN 1:CLS:PBIMT* >FW 
LES 12 MOTS A ECBIBE -9 lettres m 
i-" 

112 PEU 2:F08 n=l T0 12 >PG 

113 L0CATE 5, <M2)»1: >PD 

114 CLEA8 1MPUT: INPUT », al»(nl:b( >TJ 
■)'LEN(al«(n)l 

122 IF b(n)>9 THEN LOCATE 5,(M2)«1 >FB 

:PRIMT SPACE»! 361 : GOTO 113 

1/4 NEIT n >PA 

125 GOSUB 1020 >PC 

126 INK 1,6: INK 2,26: INK 3, 13: INK 4 >FK 
,9: INK 5, 15: INK 6,24: INK 7, 14: INK 8 
,17: INK 9,0:INK 10.2: INK 11,12 

130 s=0 >PE 

133 IF s=3 THEN s=0 >HP 

135 FOU n=l T0 4 >VE 

140 a«(n)=al»l4istn) >NF 

150 NEIT >EB 

160 s=s*l >FB 

200 'début jeu >BC ► 



a 


ii 


A. 

a 
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ï 


= 


A 

O 






















V 

U 


A 

U 














Ç 



18 




206 pp=0:z2=0:»ODE 0:B0BDEB 13 >YY 

210 pp=PP'l >ZK 

215 IF pp=5 TDFJI GOTO 133 >BH 

220 J=0:ic=100:rl=0 >W 

225 ON SSII) GOSUB 730 >P6 

230 j=J»l >DB 

235 IF )>« THE» GOTO 640 >QF 

240 ee=0:ArTES W0«B(J),1 GOSUB 625 >BA 

245 CLS:LOCATE 1*INT( (10-b< 1>)/2),2 >TA 

5:PEM -S : PB I Ml AMJ) 

250 'plicnent obstacles >8H 

255 FOB n=l TO 8 >IB 

260 ll=INT<<BNDil8>*l):yi=INT<<BND< >HD 

22)»1):IF yl=l THEM GOTO 260 

265 LOCATE il.yl:PEN 1:P1INT c» )2T 

270 i2=INT<<BNDtl8>tl):y2-|NTKB»< >HJ 

22)«1):IF y 2=1 THE» GOTO 270 

275 LOCATE i2.y2:PE» 11:FIINT dl >AA 

280 IF pp=l THEN GOTO 285 >TG 

285 i3=lMT((BMDil8Hll:y3-IKT((B«)« >HA 

22)tl):IF y3=l THEN GOTO 285 

290 LOCATE i3,y3:PEN 10:PBIHT fl >AA 

295 NEIT n >PK 

300 'placeient lettres >BD 

305 FOB »=l TO B(J) >HG 

310 L»(»)-NIDI(»»(J).N,1> >TH 

315 Il=INT((BNDil8M):Yl=INT(<BND« >JÏ 

21)«1) 

320 IF yl=l THEN GOTO 315 >BD 

325 LOCATE II . ïl : w»=COPYCHS*( 10) : I F >AP 

ï«<>" • THEN GOTO 315 

330 PEN 2:PB1NT ll(n) >PL 

335 NFJT N >PE 

340 'chien et loup :depart >BH 

345 IF pp<3 THEN GOTO 375 >TJ 

350 IS=INT<(BNDilB)»l>:Y5=lNT(<BND« >JD 
221*1) 

355 IF yS=l THEN GOTO 350 >BD 

360 LOCATE Ib,Y5:««=C0PYCHfi«(»0) : IF >AT 

MO" • THEN GOTO 350 

365 IF pp=3 THEN PEN 9:PBINT (1 ELS >TH 
E PEN 3:PBINT e» 

370 'personnage:depart >TA 

375 I = INT(<BNDil8m>:Y=lltT(<BNDi22 >HB 
)«ll 

380 IF fi THEN GOTO 375 >BP 

385 LOCATE I,Y:M=COPYCHB»<K»:IF U >TB 
•<>■ ■ THEN GOTO 375 

390 CLEAB INPUT:PEH 6:PBINT AI:ia-0 >KK 
:ya=0 

395 PEN 7:L0CATE S.liPBINT'score^i >HC 



400 'début boucle principale >EE 

405 'ligne 410=ralentl«eur cklen/1 >BK 
oup 

410 ia7=INT(BN0H0)«l:IF ia7<9 THEN >LY 
GOTO 525 

415 ' loup et chien :ecran >TA 

420 IF pp<3 THEN GOTO 525 >BH 

425 LOCATE i5.yb:PBI»T" • >UV 

430 IF pp=» THEN GOTO 455 ELSE u£> >U1 
!»T(BN0i2):ya5=INT(BuH2l:ia6=l»T(B 
»l)i«itl:ON ia6 GOTO 435, 440, 445, 450 

435 i5=i5«ia5:y5=y5«ya5:G0T0 475 >BE 

440 l5=l5«ia5:y5=y5-yaS:€0T0 475 >BC 

445 i5=iS-iaS:y5=yS»ya5:G0T0 475 >BH 

450 i5=l5-u5:y5=yS-yaS:G0T0 475 >BF 

455 IF l-l5<0 THEN i5=«5-l:iaS=-l >AP 

460 IF i-i5>0 THEN «S=i5»l:iaS=l >ZJ 

465 IF y-y5<0 THEN y5=y5-l:yaS=-l >AW 

470 IF y-yS>0 THEN yS=yS*l:y»5=l >ffl 

475 IF l5<l THEN lS=l >NG 

480 IF i5>20 THEN l5=20 >M 

485 IF y5<2 THEN y5=2 >PD 

490 IF y5>24 THEN y5=24 XK 

495 IF PIS AND y=y5 THEN LOCATE i5 >QK 
, yS : I F pp=» THEN PEN 3:PBINT e»:GOT 
620:ELSE PEN 9:PRINT |«:G0TO 620 

500 LOCATE I5,Y5:U1*=C0PTCHB*(I0):I >CB 
F WltO' ' THEN GOTO 430 

505 LOCATE iS.yS >LB 

510 IF pp=3 THEN PEN 9:1F ia5=l THE >CD 
N PEINT il ELSE PBINT glt 

515 IF pp=4 THEN PEN 3:1F ia5=-l TU >CH 
EN PBINT et ELSE PBINT elt 

520 'deplaceaent personnage >BH 

525 IF INKET(0)=0 OB JOY(0)=1 THEN >FN 
ya=-l 

530 IF INKEY12>=0 OB J0Y(O)=2 THEN >EC 
ya=l 

535 IF INKET(8)=0 OB J0YIO)=» THEN >FZ 
11=1 

540 IF INKET(1)=0 OB J0T(0)=8 THEN >EH 
ia=l 

545 IF ia=0 AND ya=0 THEN GOTO 395 >2A 

550 LOCATE l,y:PBINT b» >TN 

555 i=i»ia:y=y»ya >m 

560 IF i<1 THEN 1=1 >NC 

565 IF i>20 THEN i=20 >NA 

570 IF y<2 THEN y=2 >NH 

575 IF y>24 THEN y=24 >PD 

580 'contrôle déplacement faisable >TD 

585 LOCATE i,y:tt»=COPTCHB«(IO):IF >BL 
tt»<>" THEN GOTO 595 



590 GOTO 605 


)AB 


565 IF ttl=c« OB ttl=d« OB ttl=e» >EN 


1 tt»«|t OB ttl=|« OR ttl-el< OB tt 




•=(11 THEN LOCATE i,y:PEN 6:P1INT a 




»:GOTO 620 




600 GOTO 665 


>a 


605 PEN 6:L0CATE l,y:PBINT a* 


>n 


610 ia=0:ya=0 


>PB 


615 GOTO 395 


>AF 


620 sc=sc-20:z=BErUIN(l) 


>u» 


625 CLS: 


>BD 


630 FOB 11=1 TO 500:NEIT:G0T0 230 


)AZ 


635 'tin de partie 


>TE 


640 PEN 7:L0CATE 5,l:PBINT"score='; 


)HV 


645 LOCATE 9,12:PBINT'FIN* 


>VL 


650 IF sc>z2 THEN z2=sc 


>BB 



652 PEN 15:L0CATE 1,1S:PBINT*NEILLE >UV 

UB SC0IE';z2 

655 FOB tt=l TO 3000:NE1T tt:CLS:GO >JH 

TO 210 

660 'contrôle lettre >TC 

665 ee=«»l >WC 

670 IF ttl=l«eel THEN 3c=sc»10 ELS >U1 

E ee=ee-l:GOTO 705 

675 'écriture lettre écran >TJ 

680 PEN 8:LDCATE iO«lNT((10-b<1>>/2 >VA 

»ee,2S:PBINT ttl 

665 'contrôle dernière lettre aot 

690 IF ee=b(J) THEN LOCATE i,y:PEN 

6:PBINT a«:zl=BEHAlN<l):3C=sc4zl:PE 

» 7: LOCATE 5, l:PBINT , score="isc:FOB 

cc=l TO 2000:NFJT cc:GOTO 230 
695 GOTO 605 

700 'lettre fausse a replacer 
705 Il=INTI(BNDil8)tll:ri=INT((BND> >JY 
21)«1) 

710 IF yl=l THEN GOTO 705 >BK 
715 LOCATE Il,»l:ït=COPYCHB«llO): IF >AY 

»»<>■ • THEN GOTO 705 
720 PEN 2:PBIHT tt»:60T0 605 >W2 
725 'unique >TE 

730 BEAD a,b:IF a=-l THEN BESTOBE:G >JG 
OTO 730 

735 SOUND I7,a,50»b,10,l 
740 SOUND 10,ai2,50ib,10,l 
745 ON SD(l) GOSUB 730:BETUBN 
750 STHBOL AFTEB 32 
755 'lettres accentuées 
760 SYMBOL 33,32,16,120,12,124,204, >FN 
114,0 
765 STHBOL 35,48,72,120,12,124,204, >FF 



>TK 
>EV 



>AH 
>BH 



>BB 
>TB 

>a 

M 

>TH 
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114,0 

770 SYMBOL 36,16,8,60,102,126,96,60 >CD 

,0 

775 SYKBOL 37,8,16,60,102,126,96,60 >D6 

.0 

780 SYMBOL 38,24,36,60,102,126,96,6 >D> 

0,0 

785 SYKBOL «0,40,0,60,102,126,96,60 >CT 

,0 

790 SYKBOL «1,24,36,56,24,24,24,60, >CE 



795 SYKBOL 95,40,0,56,24,24,24,60,0 >BA 

800 SYKBOL 163,24,36,60,102,102,102 >FL 

,60,0 

605 SYKBOL 123,24,36,0,102,102,102, >EW 

62,0 

810 SYKBOL 124,32,24,102,102,102,10 XX 

2,62,0 

815 SYKBOL 125,0,0,60,102,96,102,60 >0I 

,16 

820 'obstacles:per9oniu|es >TA 

825 SYKBOL 207,0,0,0,0,28,62,6,16 >ZÏ 

830 SYKBOL 229,8,106,26,12,40,26,12 >C0 

,0 

835 SYKBOL 231,144,112,33,95,126,12 >JA 

6,85,164 

840 SYKBOL 248,24,24,8,28,42,12,20, >CC 

36 

845 SYKBOL 249,0,0,8,62,255,127,126 >M 

,60 

850 SYKBOL 250,0,0,0,0,36,120,92,36 >BB 

855 SYKBOL 251,9,14,132,250,126,126 )HB 

,170,37 

860 SYKBOL 252,0,0,0,0,36,30,58,36 >AA 

865 BETUBN >A£ 

870 'unique >TF 

875 DATA 142,1,159,1.5,190,1,190,1, >TD 

239,1,213,1,239,1,213,1,142,1,159,1 

.5,190,1,190,1,159,1,142,1,142,1,15 

9,1.5,190,1,190,1,239,1,213,1,239,1 

,213,1,190,1,239,1.5,142,1,142,1,15 

9,1,239,2,0,4 

880 DATA 159,0.5,142,0.25,159,0.5,1 >HF 

79,0.5, 190,. 5,179,. 5, 159,1, 213,. 5,1 

90, .5, 179, 1, 190, .5, 179, .5, 159, 1, 159 

,.5,142,. 25, 159,. 5, 179,. 5, 190,. 5, 17 

9, .5, 159, 1,213, 1, 159, 1, 190, 1,213, 1, 

239,1,0,4 

885 DATA 239,1,213,1,190,1,239,1,23 >HD 

9,1,213,1,190,1,239,1,190,1,179,1,1 

59,2, 190,1,179, 1,159,2, 159,. 5,142,. 



5, 159,. 5,179,. 5, 190,1, 239,1, 159,. 5, 
142,. 5, 159,. 5,179,. 5, 190, 1,239,1, 23 
9,1,319,1,239,2,239,1,319,1,239,1,0 
,4 

890 DATA 239,. 5,239,. 25,239,1, 319,1 >TE 
,190,. 5, 190,. 25, 190,1, 239,1, 239,. 5, 
190,. 25, 159,1, 159,. 5,179,. 5, 190,. 5, 
213,2,213,. 5, 190,. 25,179,1, 179,1, 19 
0,. 25,213,. S, 190,1, 230, 1,239,. 5, 190 
,.25,213,1, 319, 1,253,. 5,213,. 25,239 
,1,213,. 5, 190,. 25,179,1, 179,. 5,142, 
.25 

895 DATA 159,. 25,179,. 5,190,1, 190,. >PG 
5, 159,. 25,179,. 5, 190,. 25, 213,1, 319, 
.5, 179,. 26, 190,. 5,213,. 5,239, 1,0,4 
900 DATA 95,. 5,106,. 5,119,. 5,142,3, >HT 
95,. 5, 106,. 5, 119,. 5, 142,. 5, 159,. 5,1 
59, 1,95,. 5, 106,. 5, 119,. 5, 142,. 75, 14 
2, .25, 179, 1, 142, .5, 119, .5, 119,. 5, 12 
7,. 5, 127,. 5,119,. 6, 106,. 5, 127,. 5, 14 
2,. 5, 159,. 5, 159, 1,190,. 5, 158,. 5, 142 
,1 

905 DATA 190,. 5, 213,. 5, 190,1, 142,. 2 >JJ 
5, 159,. 75, 142,. 25, 159,. 75,179,. 5, 19 
0,. 5, 190,1, 190,. 5,213,. 5,239,. 5,239 
,1,284,. 25,239,. 75,239,. 25,190,. 5, 2 
13,. 25,239,. 5,239,. 5,253,1, 239,2, 15 
9,. 5, 159,. 5,239,1, 190,2, 213,. 5, 190, 
.5, 179, .5, 179, .5, 159, .5, 159, .5, 190, 
1,190,. 5 

910 DATA 213,. 5,239,. 5,239,1, 284,. 2 >CA 
5, 239, . 75, 239, . 25, 190, . 5,213, . 25, 23 
9,. 5,239,. 5,253,1, 239,2,0,4 
915 DATA 190, 1,190,. 75, 179,. 25, 159, >JF 
.5, 190,. 5, 190,1, 213,. 5,239,. 5,213,. 
25, 190,. 75, 190,. 5,213,. 5,239,. 25,28 
4,. 75,284,. 5,284,. 5,319,3,319, 1,239 
,1,190, 1,159,. 25, 190,. 75, 159,1, 142, 
1.5, 159,. 5, 190,1, 213,. 5,239,. 5,213, 
3, 190, 1, 190, .75, 179, .25, 159, .5, 190, 
.5,190,1 

920 DATA 213,. 5,239,. 5, 213,. 25,190, >HH 
.75, 190,. 5,213,. 5,239,. 5,284,. 5,284 
,.5,284,. 5,319,3,319,1, 239,1, 190,1, 
142,. 25, 159,. 75, 190,. 5,236,. 5,213,. 
25, 190,. 75, 190,. 5,213,. 5,239,1, 284, 
.5,319,. 5,239,3,0,4 

925 DATA 319,1,239,1,190,2,190,1,19 >YA 
0, 1, 190,2,213, 1, 190, 1,213, 1,239, 1,2 
39,2,319,1,239,1,190,2,239,1,190,1, 
159,2, 179, 1, 190, 1,213,2,213,2, 159, 1 
, 179, 1, 190,2, 190, 1,213, 1,239,2,213, 



1,190,1,159,1,179,3,179,2,284,1,284 

,1,319,2,253,1,239,1.5,213,2,190,1, 

213,1 

930 DATA 239,2,239,2,0,4 XII 

935 DATA 190,1,159,1,159,2,179,1,14 >* 

2,1,142,2,127,1,127,1,142,1,127,1,1 

19,1,106,1,95,2,190,1,159,1,159,2,1 

79,1,142,1,142,2,127,1,127,1,142,1, 

127,1,119,1,119,1,119,2,95,2,119,1, 

159,2,179,1,142,1,142,2,159,1,127,1 

,127, 1.5,142,. 5, 159,1, 119,1, 119,2,0 

,4 

940 DATA 159,. 5,190,. 75,179,. 25,159 >W 

,1,159, 1.5, 159,. 5, 142,. 75, 127,. 25,1 

19, 1,119,1. 5, 159,. 5, 190,. 75, 179,. 25 

,159,1, 159, 1,159,1, 142,. 75, 159,. 25, 

179,1,179,2,190,1,159,1,239,1,190,1 

,213,1,179,2,239,1,239,2,0,4 

945 DATA 190,. 5,179,. 5,159,. 5,159,. >FY 

25, 159,. 25, 142,. 5, 127,. 5,119,1, 127, 

.5, 142, .5, 159, .5, 159, .25, 159, .25, 15 

9,. 5, 142,. S, 127,1, 142,. 5, 159,. S, 179 

,.5,179,. 25, 179,. 25, 179,. 5, 159,. 5,1 

42, 1,159,. 5, 179,. 5, 190,. 5, 159,. 5,0, 

.5, 169,. 5, 159,. 5,0,. 5, 190,. 5,179,. 5 

,159,. 5 

950 DATA 159,. 25,159, .25,142,. 5,127 >BH 

,.5,119,1, 127,. 5,142,. 5, 159,. 5, 159, 

. 25, 159, . 25, 159, . 5, 142, .5, 127, 1, 142 

,.5, 159,. 5, 179,. 5, 179,. 25,179,. 25,1 

79,. 5,159,. S, 142, 1,127,. 5, 159,. 5, 11 

9,. 5,0,. S, 127,. 5,0,. 5, 119,. 5, 190,. S 
,201, .5, 190,. 5,142, 1,190,1, 201, 1,19 
0,1 

955 DATA 159,. 5,169,. 5, 179,. 5,179,. >TK 
25,179,. 25, 179,. 5, 179,. 5, 190,. 5,179 
,.5, 127,1, 179,1, 190, 1,179,1, 142,. S, 
150,. 5, 159,. 5, 159,. 25, 159,. 25,159,. 
5, 159, .5, 142, .5, 127, .5, 119, 1, 127, 1, 
106, 1, 119, 1, 127, .5, 159, .5, 142, .5, 13 
5,. 5, 127,. 5, 158,. 5, 142,. 5, 135,. 5, 12 
7,1 

960 DATA 142,1, 119,1, 127,1, 142,. 5,1 >TÏ 
59,. 5, 169,. 5, 142,. 5, 159,. 5, 190,. 5,2 
13,. 5,239,. S, 159,1, 190,1, 213, 1,239, 
1,253,. 5, 159,. 5,179,. 5, 179,. 25, 179, 
.25,179,. 5, 179,. 5, 190,. 5,213,. 5, 142 
,1.5,179,. 5, 190,. 5,213,. 5, 142,. 5, 13 
5,. 5, 127,2,0,4 

965 DATA 159,. 5, 159,. 5,239,. 5,239,. >AH 
5, 142, .5, 159, .5, 179, .5, 190, .5,213, . 
5, 239,. S 
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970 DATA 238,. 5, 159,. 25, 158,. 25,179 >CJ 
,.5, 190,. 5, 179,. 5, 190,. 5,213,. 5,239 
, 1,239,. 5, 190,. 5, 159,. 25, 1*2,. 25, 15 
9, 1.179.. 5, 190.. 5, 159,. 25,1*2,. 25,1 
58, 1,238,. 5, 158,. 25, 159, .25, 179,. S, 
180,. 5, 179,. 5, 190,. 5,213,. 5,239, 1,2 
39, .5, 190, .5, 159,. 25, 1*2, .25,159,1, 
179,. 5 

975 DATA 190,. 5, 213,. 25, 190,. 25, 213 >QD 
,.5,239,1.5,0,* 

990 DATA 119,1, 119,. 5,127,. 25,119,. >CV 
25,106,. 25, 119,. 25, 127,. 25, 1*2,. 25, 
118,. 5,118,. 25,1*2,. 25,119, 1,119,. 5 
,127,. 25,119,. 25,142,. 25, 159,. 25, 19 
0. .25, 179,. 25, 159,2, 159, .25, 179, .25 
,190,. 25,213,. 25, 190,. 25,178,. 25, 15 
9,. 25,1*2,. 25, 159,1, 159, 1,159,. 25,1 
42,. 25 

985 DATA 127,. 25, 142,. 25, 159,. 25,17 >QK 
9,. 25, 190,. 25,213,. 25, 190,. 25,213,. 
25,239, .5,239,. 5,238,. 25,213, .25, 19 
0,. 5, 179,. 5,213, 1,159,2, 158,2, 159,. 
5,0,. 5, 106, 1,106,. 75, 119,. 25, 127,. 2 
5, 142,. 25, 127,. 25,119,. 25,106,. 25,1 
19, . 25, 127, . 5, 127, . 25, 119, . 25, 127, . 
25,159,-25 

990 DATA 119,. 25,127,. 25, 159,. 25,17 >K 
9,. 25, 179,1, 179,. 5,179,. 5,179,. 5,1* 
2,. 5,119,. 25,1*2,. 25, 127,. 25, 158,. 2 
5,178,. 5,179,. 25,179,. 25,178,. 5,1*2 
,.5, 127,. 25, 159,. 25,1*2,. 25,179,. 25 
,213,. 5,213,. 25,239,. 25,213, 1,213,. 
5,213, .25,213, .25,213,-5, 179,. 5, 1*2 
,.25 




995 DATA 179,-25,159,-25,190,-25,21 >CF 
3,. 5,213,. 25,239,. 25,213,1, 213,. 5,2 
13,. 25,239,. 25,213,. 5, 190,. 25,179,. 
25, 159,2, 159,. 25,179,. 25, 190,. 25,21 
3,. 25, 239,. 5,0,2.5, 134,1, 127,. 25,14 
2,. 25, 159,. 25,179,. 25, 127,. 25,119,. 
25, 1*2,. 25, 159,. 25, 134,. 5,142,. 25,1 
58,. 25 

1000 DATA 127, 1,142,. 25, 127,. 25, 142 >K 
,. 25, 159,. 25,159,1, 159,. 25,179,. 25, 
190,. 25, 213,. 25, 190, 1,190,1,0,. 5, 12 
7, .25, 119,. 25,112,. 5, 112,. 5, 106,. 5, 
106,. 5, 106,. 5, 106,. 5, 112,. 5, 106,. 5, 
106,. 5, 106,. 5, 119,. 25, 135,. 25, 106,. 
5, 119,. 25, 127,. 25, 100,. 2S.119,. 25,1 
35,. 25 

1005 DATA 150,. 25,158,. 25,178,. 25,1 >BI 
90,. 5, 190, 1,190,2, 190,. 5,0,. 5,201,1 
.5, 190,. 5,213,. 25, 190,. 25,179,. 5,17 
9, 1,159,. 5, 150,. S, 179,. 5, 159,. 5, 190 
,.5,213,. 25, 190,. 25,213,. 25,239,. 25 
,239,. 5,253,. 5,2S3,1, 260,. 25,239,. 2 
5,253,. 25,239,. 25,213,. 25, 190,. 25,2 
13,. 25 

1010 DATA 239,. 25,213,. 25,239,. 25,2 >TF 
53,. 25, 301,. 25,260,. 25,301, .25,319, 
.5, 319,. 5,179,. 5, 179,1, 179,1,179,. 2 
5, 159,. 25,179,. 25,201,. 25, 190,1, 201 
, 1, 179, .25, 190, .25, 179, .25,226, .25, 
213, 1,226,1, 213,. 25,213,. 25,201,. 25 
,213,. 25,179,. 25, 190,. 25,213,. 25,23 
8,. 25 

1015 DATA 239,1, 239,. 5,0,. 5,0,4,-1, >AP 
1 



1020 CLSlIIK 1,26:1* 2,24 >TB 
1025 LOCATE 8,1:PEN l.-PBWT'Dens le >FC 

pr» voisin lia la forât, VPBINT' le 
petit chaperon jaune ";:PEK 2 : PB I HT 

CM» (2*61;: PEU l:PRIMT a fait la ": 
PIlNT'cuelllette des lettres pour < 
crlre des VPBIBT'eots .' 
1030 PRiHT:PBINT* Aidez le ! ra >LG 
aassar celles-ci dans':PllhT*le bon 

ordre, le plus rapideaent possi-':P 
BlkT'-ble en ivltant les arbustes c 
arnivores* 

1035 PBINT'Ies chaapignons vtntneui >TJ 
.les nares pro-VPfilMT'-fondes où 1 
I peut se noyer,'; 

10*0 PBINT- un cblen VPBINT' attei >PP 
nt de la rage -attention auz aor-': 
PlINT'-sures- et le loup qui aiaera 
it bien leVPBINT'croquer." 
10*5 PBINT- La difficultJ du jeu va >JU 

en augmentant.* 

1050 PBIKT' Aui chaiplgnons et arbu >HT 
stes du dJbut ■:PBIIrT* s'ajoutent I 
es aares dangereuses puis,":PBiNT a 
le chien salade et enfin le trichant 

VPBINT- UWOUUUP.- 
1055 PBINT'Vous avez un capital de >HV 
100 POINTS pour' 

1060 PBINT-coeaencer. VPBINT M» 
1065 PBINT- BONNE CHANCE ,et essaye >TL 
z donc de faire':PBINT a le aeilleur 

SCOBE • 

1070 UHILE rr»'":rrl=INKEÏS:WEND >CE 
1075 BETUIN >FG- 
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Dans la peau d'une grenouille aussi grosse qu'un 

bœuf, vous devez attrapper des mouches (15 au 

maximum) à l'aide de votre langue. Vous avez 

2 minutes pour avaler le maximum d'insectes 

en un minimum de coup de langue. 



Le premier listing ne sera utilisé 
qu'une seule fois : c'est lui que vous 
lancerez en premier afin de créer les 
images du jeu. Par la suite, il suffira de 
lancer le deuxième programme. 

Il est possible de jouer avec le joys- 
tick (haut, bas) ou bien avec les touches 
E et C. Il suffit de maintenir la direction 
pour emmagasiner de la puissance et 



CREEDES 

10 IKK 0,0:INK 1,9:INK 2,18:INK 3,1 >BH 

S:BIJRDEE O.-PEV 1 

20 SYMBOL AFTEB 32:SYHB0L 91,128,12 >PU 

6,128, 128, 128, 128, 128, 128:SYBB0L 93 

,1,1,1,1,1,1,1,1 

30 SYNBOL 47.3,6, 12.2», 48,96. 192, 12 >CU 

8 

40 SiNBOL 92,128,192,96,48,24,12,6, >CV 

3 

50 SYHBOL 60,3,6,12,24,48,96,192,25 >Cfi 

5 

60 SiNBOL 62,192,96,46,24,12,6,3,25 >CV 

5 

70 SYHBOL 95,0,0,0,0,0,0,0,255 >UL 

80 SYHBOL 81,0,24,102,153,153,102,2 >DP 

4,0 

90 SYHBOL 94,255,0,0,0,0,0,0,0 >IM 

100 MODE i >GK 

110 LOCATE 14,13:PBINT • >DK 

■ 

120 LOCATE 14, 14:P!IKT ■ / (Qç >DH 
130 LOCATE 14, 15:PilNT ■ / ',> >CV 



lancer ainsi sa langue le plus loin possi- 
ble en relâchant la touche. 

Pour améliorer la présentation, il est 
conseillé d'ajouter un CLEAR INPUT au 
début de la ligne 350 du second listing. 
Les possesseurs de claviers QWERTY 
peuvent remplacer les "ç" par des "\" et 
les "°" par des "[" 




140 LOCATE 14,16:PB1NT • / ) / >CV 

150 LOCATE 14, 17:PBINT ■/ / )EU 

160 LOCATE 14,18:PBIHT ■•/ ç ç >DJ 

170 LOCATE 14,19:PI1KT 'c ,)çç >0U 

180 LOCATE 14,20:P1INT ■ ç_ /ce >GE 

190 LOCATE 14,21:PBINT " / / ç_ >EP 

J • 

200 LOCATE 14,22:PBWT ■ / / >CF 

210 LOCATE 14,23:PBINT • / < >DQ 

220 LOCATE 14,24:PBINT ■ '(' ç_ >CG 

230 LOCATE 14,25:PB1NT '/"--ç»» >HK 

240 IWVE 320,4:FILL 2 c^g> >PH 
250 LOCATE 1,18 " r S3S >ÏE 
260 PBINT • » >8E 



270 PBINT • / (Dç ■ >QJ 

280 PBINT ■ / ',> " >0,L 

290 PBINT • / ) / " >BG 

300 PBINT •/ /_ ç / ■ >BB 

310 PBINT ■•// I • • >BI 

320 PBINT 'ç C""ç_ ■ >UW 

330 PBINT "/""ç»» ç '-.mil 6§16 >ND 
,4:FILL 2 

340 LOCATE 27,9 >YC 

350 LOCATE 27,10:PBINT ■ >EK 

■ 

360 LOCATE 27,11:PBINT ' / (Oc >M 

R 

370 LOCATE 27, 12:PBINT • / ',> >CC 

380 LOCATE 27,13:PBINT " / ) I >CC 

390 LOCATE 27, 14:PBINT ■/_ / >DY 

400 LOCATE 27, 15:PBINT ■• ç |" >DE 

410 LOCATE 27, 16:PBINT "c ç, ç >DG 

420 LOCATE 27,17:PBINT ■ ç l /ç ç. >FQ 

430 LOCATE 27,18:PBINT ■ ç ç ç_ >FJ 

440 LOCATE 27, 19:PBINT " ç ç >DN 

450 LOCATE 27,20:PBINT • ç) ! >DQ 

460 LOCATE 27,21:PBINT ■ / / >CT 

470 LOCATE 27,22:PBINT " I I >CV 

480 LOCATE 27,23:PBINT " /l <_ >EP 

490 LOCATE 27,24:PJ1NT ■ / ç_ >ET 

500 LOCATE 27,2S:PBINT V""ç>>» >JL 

C "! 

510 MOVE 33<16,4:FIU 2 >QC 

520 N0ÏE 28H6,4:FILL 3:«0>E 37H6, )JE 

4:FILL 3 

530 NOUE 15«16,4:FILL 3:H0»E 23«16, )J« 

4:FILL 3 

540 «OïE 6,4:FILL 3:N0ÏE 1H16,4:FI >FT 

LL 3 

550 Dl M a(199l:s=0 >u 

560 F0B 1=0 TO 199 STEP 8 >RK 

570 FOfi j=0 T0 7:aU.gl=lC000»(f">ts )KX 

I«(|i2048) 
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560 KEIT 

590 s=3«l 

600 NEIT 

605 3=14000 

610 FOI y=(9»8)-l TO 

620 FOB 1=0 TO 25 

630 POKE s.PEEKlalyUU 

640 ilHtlOTlKEn 

641 LOCATE 1,1:PBINT HEIlls 
650 F0B y=(9l6)-l TO 190 
660 FOS 1=26 TO 51 
670 POKE s.PEEKIalyHz 

660 s=s»l:NEIT:NEIT 

661 LOCATE 1,1:PBIKT HQlls) 
690 FOB y=l9iBI-l TO 199 
700 FOB 1=52 TO 77 
710 POKE s,PEEKla(yJ««l 
720 s=s«l:NEIT:NEIT 
730 PBINT HEM(s) 
740 PBINT HEMls-MOOOl 
750 SAVE 'DESSIN", B, 14000, 12800 
770 PBINT 'Mon travail est total 

780 PBINT 'Je peui être détruit.' )JT 




GRENOUILLE , 



£&&& 



10 HEHOBÏ l3FFF:L0AD"dessin.bin" )F0 

20 GOSUB 380 >BD 

30 AFTEB 6000 GOSUB 270 >DH 

40 FOB 1=0 TO ■:i(l)=lNT(BND<27l«13 >CK 

:y(l) = INT(INDl9H10:LOCATE i(l),y(i 

l:PEN l:P»INT't':NEIT 

50 IF JOÏ(0) = 1 OB INKET(56I=0 THEN 

CALL lA000,ire3:yl=5:kel=58:1ol=l:G 

OSUB 150 

60 IF J0y<0)=2 OB INKET(62)=0 THEN 

CAU lA000,i,rel:yl=13:kei=62:joi=2: 

GOSUB 150 

70 IF J0V(0)=4 OR INKEÏI61I -0 THEN 

CAU lA000,|re2:yl=8:kel=61:)ol=4:G 

OSUB 150 

80 IF stup=l THEN stup=0:GOTO 280 

90 FOB 1=0 TO • 



>EB 



>FU 



>EZ 



>BD 

>ra 

100 id=INT(BND«3)-l:yd=INT(BND«3)-l >ED 

110 LOCATE i(il,yli):PBINT' * >XÏ 

120 IF i(l)iid>13 AND i(lHid<40 AN >UD 
yllHydM AND y(i)»yd<19 THEN i(i 



>=l<l>»zd:y(l)=y(IHyd ELSE GOTO 10 



130 LXATE I < i > , y ( 1 > : PEH 9:PBINT'l' >JN 

■tOT 

140 GOTO 50 >BG 

150 l=0:lev=lev<l >HN 

160 IF lMŒy(kei)=0 01 J0TI0)=1of T >BK 

HE* I = U1 ELSE GOTO 180 

170 IF 1=28 THEN GOTO 180 ELSE LDCA >0H 

TE 1,25:PEN 2:PAPEB 0:PBINT STBINC1 

ll,2O7);:G0TD 160 

160 FOB i=U TO Utl:LOCATE i,yl:PB >PÏ 

INT"_'tCHt»<240);:SOUHD », 1150,1 

190 FOB 1=0 TO ■ )ZK 

200 IF yhydlAND l=l(l)THEN GOSUB >FQ 

240 

210 NETTlNEKT: LOCATE lHI,yl:PBINT >PU 

CHI»<240) 

220 FOB 1=12*1 TO 11 STEP-1:L0C»TE >BB 

l,yl:PBINT* ";:SOUND 4,ii5,l:NEZT 

230 PAPEfi 0:LOCATE 1,25:PBINT STBIN >ZF 

G»(40, 128); :BETURN 

240 eu=eu»l: LOCATE i(i),yii);PEN 1: >ÏT 

PBINT CHBI(238I;:S0UND 1,400,10,12, 

,,3 

250 l(l)=INT<BMH27>H3:y(l) = INT<BN >DL 

DlB)»10:L0CATE ilil.yd) ;PEN 1:PB1N 

T'i"; 

260 BETUBN )ZD 

270 stup=l;BETUBN >NP 

280 MODE 1 : PAPES 0:PEN 3 >Bi 

290 PBINT'En 2 limites vous avez at )ZN 

trape..." 

300 PBINT eu;' louches.' )NZ 

310 PBINT'ïous avez tire la langue >EI 

Mev;' fois.' 

320 PBINT'Ce qui vous fait un score >BV 

de ■ 

330 CALL UB06 >U 

340 PBINT INT((eui20)-llevi2.5l);' >NB 

points." 

350 PtINT'Voulez-vous recowncer ? >8C 

360 IF INKEï(34l-0 THEN EBASE z,y:G >HD 

OTO 20 

370 IF INKEY(46)=0 THEN END ELSE GO >GI 

TO 360 

380 STKBOL 240,0,0,0,0,8,24,112,224 )AA 

390 STHBOL 241,2,37,96,31,2,1,4,77 >AQ 
400 STHBOL 242,5,43,34,84,74,23,64, >CD 
53 



410 MODE l.-IHK O.OilNK 1.9: INK 2,16 >VA 

: IMK 3,1S:B0BDEB 1 

420 GOSUB 580 >HJ 

430 lev=0:eu=0:stup=0 )it 

440 lrel=l4000:lre2=l4DlA:ire3=i5A3 )DC 

4 

450 CALL UOOO.irel >HH 

460 PAPEB 3:PEN 0:EOB 1=19 TO 25:L0 >UD 

CATE l.iiPBINT STBING«(12.241I::NEÏ 

T 

470 PEN 1: PAPEB 2:L0CATE 13,23:PBIN >GI 

T STBINGI(28,242):L0CATE 13,24:P(IN 

T STBINGI(2B,242):LOCATE 13,25:PB1N 

T STBINGt(28,242); 

480 PAPEB >UC 

490 LOCATE 1.1:PEN 2: INPUT'Noibre d >YT 

e ■ouches";i 

500 IF i>15 OB i<2 THEN GOTO 490 a >VF 

SE ■=■1:0111 id).y(i) 

510 LOCATE 1,1:PBINT STBING»<40,128 >EE 

) 

520 BESTOIE 570 _, >DK 

530 FOB 1=IA000 TO 4A01C ç^êj^ >»B 

540 BEAD a:PBKE l,a W^/p >NC 

550 NEtT C ^ >EF 

560 BETUBN ^'' >ZG 

570 DATA add,a5e,a0,ldd. 156,11. 121, >NU 

Ia0,lc0,l6,l80,le5,le,tla.lla,t77,l 

23.ll3.ld, 120, 119, lel.lcd, 126, abc. a 

10,af0,lc9,a0 

580 NOVE 0,0:BEST0BE 650 )TN 

590 FOB d=0 TO 8 STEP 2 >PD 

600 BEAD a )JB 

610 IF a=254 THEN BESTOBE 650:NEIT >BT 

620 IF d=10 THEN GOTO 640 >BJ 

630 IF a=255 THEN BEAD a.b:H0VE (al >KÏ 

16)td, lbil6)»d:G0T0 600 ELSE BEAD b 

:DBAU (ail6)»d.(btl6)td:G0T0 600 

640 CALL IBB06:L0CATE 1,25:PBI«T ST >JÏ 

BIHG«(19,CHB.(10)):L0CATE 5.10:PBIN 

T 'par Ceuleuns Olivier':CALL IBBO 

6:N0DE 1: BETUBN 

650 DATA 255,4,5,2,5,1,1,3,1,3.5,3, >LK 

2.5,3,255,4,1,5,5,7,5,6.5,3,4.5,3,6 

,1,255,9,1,7,1,8,5,10,5.255,7.5,3,8 

.5,3,255,10,1,11,5,12,1,13,5,255,13 

,1,14,5,16,5,15,1,13,1,255,17,5,16, 

1,18,1,19,5,255,19,1,19.75,4,255,19 

.75,4.5,20,5 

660 DATA 255,21,5,20,1,22,1,255,24, >VJ 

5,23,1,25,1,255,29,5,27,5,26,1,28,1 

,255,26.5,3,27.5,3,254ii 
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ANUREVA 




Dominique WILLE 



90 ' 
100 
110 ' 
120 ' 

130 «ODE 2 

1*0 PRINT'HANUBEVA" H. .-> 
150 eklkV----=--=----=' 
160 PBINT 
) FEINT 
180 PBINT"Accûipasneient msic&l ar 
range car Û.WILLE pour AHSTBAO CPC. 

190 FEINT >K 

200 PBINT ..NE 

210 FfclhT ,NF 

220 PBINT >NG 

230 FtlNT"Check-up contrôle. :" /FL 

240 PBINT" — -■ >NJ 

250 st=333733 M 

260 S(l)=53986:sl2j=63711:sl3)=8122 ;BF 

4:si4J=7721û:si5j=S76Û2 

270 FOB a=l TO 5:ts2=ts2*sla):NEXT: M 

IF su/ts2 THEN PBiNT'Erreur aans I 

es soues de contrôles. ":END 

26u FBINT'Soiies de contrôles uk." ;LX 

290 FOR a=l TO 5 >VE 

300 BEAU al.-IF a»=*fln 1 THEN 310 EL >NC 

SE sone=sone<VALlal>:G0T0 300 

310 IF INT(slam>INT(sone) THEN P /CL 

BINT"Erreur dans le (iroupe";a:END 

32U P6INT"GR0UPE"ia;"ûk." iK 

330 soue=0 /BG 

340 NEXT >EC 

350 ENV 1,15,-1,15 )LA 

360 ENV 2,13.-1,6 ,m 

370 ENV 3,15,-1, 1:EKT -1,2,2,5,4,-2 >HN 

.5,2,2,5 

380 ENT -2,1,1,5,1,-1,10 >QB 

390 ENT -3,0,0,0 >M> 

400 ON EBBOB GOTO 1100 >QU 

410 ' >BF 

«0 ' >fiG 

430 ' DATA DE LA MUSIQUE >BH 




// n'est pas besoin de commentaires : 
tapez le programme, sauvez-le et écoutez. 



>BJ 

.Rk 
.TA 
>TB 

480 DATA 0,9,0,9,3000,0,0.5,1,3000, >ÏB 
0,0.5,1,3000.0,0.5,1.3000,0,1,2,300 
0,0,0.5,3,3000,0,1,3,3000,0,1,4,300 
u, 0,1, 4, 3000, 0.0. 5, 4, 3000, 0,0.5,4.3 
000,0,1,5 

490 DATA 1000,568,7,95,1,95,1,106,1 )ÏA 
,106,1,119,1,119,1.106,2,106.2,95,1 
,95,1,142,1,142,1,2000,1 
500 DATA 1000,568,6,2000,1,2000,1 >ÏT 
510 DATA 0,1,0,1,142,1,119,1,127.1, >CK 
106,1,95,1.119,1,89.1,106,1,95,1,11 
9,1,106,1,127.1,119,1,142,1 
520 DATA 1000,716,4 >HB 

530 DATA 142,1,179,1,119,1,142,1,10 >«B 
6,1,127,1,95,1,119,1 
540 DATA 1000,568.3.2000.1 >RH 
550 DATA 190,1,142,1,119,1,142,1,10 >VE 
6,1,127.1,96,1,119,1 
560 DATA 1000.426,6 >NF 

570 DATA lin >DE 

580 ' >TD 

590 ' GROUPE 2 >TE 

600 ' >BG 

610 DATA 179.1.142,1,142,1,119,1,10 >HF 
6,1,127,1,95,1,119,1,89,1,106,1,119 
,1,95,1,106,1,127,1,119,1,142,1,200 
0,1,2000,1 

620 DATA 1000,426,4 )HA 

630 DATA 89,1,106,1,106.1,1*2,1,142 >UT 
,1,179,1,179,1,213,1,1000,426,1,89, 
1,106,1.106,1,142,1,1*2,1,179,1,179 
,1,213,1,2000,1,2000,1,2000,1 
640 DATA 1000,568,4 >HK 

650 DATA 95,1,119,1.119,1,142,1,142 >RK 
,1,190,1,190,1.239,1,1000,568,3,95, 
1,119,1.119,1,142,1,142,1,190.1.190 
,1,239,1,2000,1 

660 DATA 1000,379,3,95,1.127,1,127, >HG 
1,150,1,150,1,190.1,1000,379,1,190, 
1,253,1,1000,758,2,95,1,127,1,127,1 
,150,1,150,1,190,1,2000,1,1000,758, 
1,190,1.253,1 

670 DATA 0,4.0,4,1000,568,1.2000,1, >HF 
1000,568,1,2000,1,95,2,142,2,1000,5 
68,1,2000,0.5,2000,0.5,1000,568,2,2 
89,1,119,1,80,2,95,2,1000,478,1,100 
0,478,1,71,1,71,1,1000,638,1,80,1,8 
0,1,1000,568.1,71,1,71,1,1000,478,1 



,80,2,95,2,1000,478.1,1000,638.1,10 

00.568.1 

680 DATA (in >DG 

690 ' )TF 

700 ' GROUPE 3 >RH 

710 ' >Rj 

720 DATA 1000.426,1.1000,426,1.213, >MV 

1,106,1,213,1,95,1,1000,568,1,1000, 

506, 1,213, 1, 106, 1,213, 1, 119,1, 142,4 

,213,4,1000,426,1,1000,426,1,1000,5 

68,1,1000,506,1 

730 DATA 1000,851.1,1000,426.1,1000 >BE 

,758,1,1000,379,1,0,1,0,1,106,1,106 

,1,95,1,95,1,106,1,106,1,119,1,119, 

1, 142,3, 142,3, 1000,716, 1, 1000.358, 1 

.1000,638.1.1000,319.1,80,2.95,2 

740 DATA 1000,478,1,1000.478,1,71,1 >ÏB 

.71.1,1000.638,1,80,1.80.1,1000,568 

,1.71,1,71,1,1000,478,1,80,2,95,2,1 

000,478, 1, 1000,638, 1, 1000,568, 1 

750 DATA 1000,426,1,1000,426,1,213, >FR 

1,106,1,213,1,95,1,1000,568,1,1000, 

506,1,213,1,106,1,213,1,119,1,142,4 

,213,4,1000,426.1.1000.426.1,1000,5 

68,1,1000,506,1.0.2,0,2 

760 DATA 1000,651,1,1000,426,1,1000 >EH 

.758,1,1000,379,1,106,1,106,1,95,1, 

95,1,106,1.106,1.119,1,119,1.142,3, 

142,3,1000,716,1,1000,358,1,1000,56 

8,0.5,2000,0.5,1000,284,0.333333.20 

00,0.333333.2000,0.33333.142,1,179, 

1 

770 DATA 1000,638,2,0,2,0,2,1000,63 )BV 

8,2.1000,638,2,1000,638,2,106,1,106 

, 1, 106, 1, 106, 1, 106,2, 106,2, 106, 1, 10 

6,1.106,1,106.1 

780 DATA lin >DH 

790 ' >TG 

800 ' GROUPE 4 >RJ 

810 ' >BK 

820 DATA 1000.638.2,95,2,95,2,1000. >CD 

638,2,95,1,95,1,95.1.96,1.1000,638, 

2,95,2,95,2,1000,638.2,80,1,80,1,71 

.1.71,1 

830 DATA 1000,716,1.71,1,71,1,2000. >TM 

1,71,1,71,1,2000,1,71,1,71.1,2000,2 

; ,71,1,71,1,2000,1,71,1,71,1,2000,0. 

. 5,71,1,71,1,2000,0.5,71,2,71,2,1000 

'. ,716,1 
840 DATA 1000,379,3,95,1.127,1,127, >UV 
1,150,1,150,1,190,1,1000,379.1,190, 
1,253, 1, 1000, 756,3,95, 1, 127, 1, 127, 1 



V-r^ 



, 150, 1 . ISO, i . 190, 1. 1000, 758, 1, 190, 1 

,253,1 

850 DATA 1000,568,1,190,1,119,1,100 >CB 

0,568,1.190,1,119,1,1000,568,1,190, 

1,119,1,1000.568,1,190,1,119,1,1000 

,568,1,190.1,119,1,1000,568,1,190,1 

, 119, 1, 1000,568, 1, 190, 1, 119,1, 1000, 

566,1,190,1,119,1 

860 DATA 1000,568,1,179,1,119.1,100 >CH 

0,568,1,179.1,119,1,1000,568,1,179, 

1,119,1,1000,568,1,179,1,119,1,1000 

,566, 1, 190,1, 119, 1, 1000,568, 1, 190, 1 

,119,1,1000,568,1,190,1,119,1,1000, 

566,1,190,1,119,1 

870 DATA 1000,506,1,169,1,100,1,100 >BH 

0,506,1,169,1,100,1,1000,506,1,169, 

1,100,1,1000,506,1,169,1,100,1,1000 

,506,1,169,1,100,1,1000.506,1,169,1 

,100,1,1000,506,1.169,1,100,1,1000, 

506,1.169,1,100.1 

880 DATA lin >DJ 

890 ' )TH 




900 ' GROUPE 5 -^ J >RK 

910 ' '- V^ )TA 

920 DATA 1000,566,1,179,1.106,1,100 >CA 

0,568.1.179,1,106,1,1000,566.1,179, 

1, 106, 1, 1000,568, 1, 179,1, 106, 1, 1000 

,566,1,179,1,106,1,1000,566,1,179,1 

,106,1,1000,568,1,179,1,106,1,1000, 

568,1,179,1,106,1 

930 DATA 1000,758,4,0, 1,0, 1,U2, 1,1 >JF 

19,1,127,1,106,1.95,1,119,1.89,1,10 

6,1,95,1,119,1,106,1,127,1,119,1,14 

2,1,2000,2,2000,1,2000,1 

940 DATA 1000,756,4,0,1,0,1,190,1,1 >hV 

50,1,142,1,190,1,127,1,150.1,95,1,1 

27,1,127,1,150,1,142,1,190,1,150,1, 

190,1,2000,1,2000,2.2000.1 

950 DATA 1000,758,4,0,1,0,1,142,1,1 >YE 

19.1,127,1,106,1,95,1,119,1,89,1,10 

6,1,95,1,119,1,106,1,127,1,119,1,14 

2,1,2000,0.5,2000,0.5,2000,0.5,2000 

,0.5.2000,0.5,2000,0.5,2000,0.5,200 

0,0.5 | 



960 DATA 1000,568,7,284,8,190,8,200 >CH 

0,1 

970 DATA fin 



ICI, ON JOUE LA HUSIfJUE 



>DJ 
>IK 

>TJ 
>ID 
)XE 
>XF 
THEN 103 >VX 



1000 

1010 ' 

1020 ' 

1030 8EAD 31* : IF ll»>"fln 

ELSE sl=¥ALIsl») 

1040 IF sl=1000 THEN READ s,t:S0UND >EU 

1. s. 1120,15.1. 1:GOTO 1030 
1050 IF sl=2000 THEN READ t:SOUND 1 )DH 
,O,U20.15.3,0,l:GOT0 1030 
1060 IF 31=3000 THEN READ s,t,b:SOU >KQ 
ND l,s,U2O,15,3,l,b:GOT0 1030 
1070 READ tl,s2,t2:IF ll'O OR 32=0 >LN 
THEN SOUND 6,0.tU20,0:GOTO 1030 
1080 SOUND 2. si. t U20. 15, 2. 2 : SOUND >XL 
4,s2/2,t2i20,13,2,3 

1090 GOTO 1030 >NB 

1100 RESTORE 480:RESUHE 1030 )UNb 



OFFRE EXCEPTIONNELLE : 4 CASSETTES POUR 100 F !» 

U^e cassette COTprend les jeux, éducatifs ou utilitaires q ui ont é té publiés dans le numéro CPC correspondant. 



3 : Char d'assaut - Consommaton de carburant - Fonction drcle 

4 : Redef'car - Carré magique - Lexique anglais/français - Maze 

5 : Cherry Paint - Morpions - Moulinot - Jeu de \a Vie - Utilitaires de re- 
copie d'écran - Machpoke 

7 : Cherry Paint - Disait - Conjugaison - Calcul - Colditz - Double hauteur 
Référence croisée des variables basic 

8 : Cherry Paint - Tokext - Numérologie - Discothèque 

9 : Cherry Paint - Creedata - Serpent Madness 

10 : Cherry Paint - Catalogue Disk Printer - Analyse - Mundial 86 - Arbre 
généalogique. 

1 1 : Ciel - Cherry Paint - Casse-tête de l'âne - Medor - Multi fichier. 

1 2 : Cherry Paint - Mozart - Louisiane - Prot dise - Etik disk. 

1 5 : Cherry Paint - Gemaine - Moniteur de disquette - Boîte à rythmes. 

16 : Poker patwnce - Attentif - Menu 2+ 

20 : Relief - Vision - Tri pour Bankmanager - Cat disk - Poker. 

21 : Monnaie - Oxydo - Demo-tris - Stradamuse - Dis - Cas - Charge- 
ment des RSX Bankopen. Bankread, Bankwrite, Bankfind. 



22 : Tournoi de fléchettes - Emulateur minitel - Technique des mas- 
ques - Recherche documentaire - Anti-erreurs - Histoire. 

23 : Anti-erreurs - CAO 3D - 30 snakes - Photo-sprite - Reliel - Moniteur. 
24: CAO 3D-Anli-erreurs-1000 Bornes - Justification - Twenty 
Copy - Trames et collages - Graphofrance - Machines. 

25 : CAO 3D - Amsrythm - Trois dés - Générateur de menus - Symé- 
trie - Générateur de sprites (1) - Penetror. 

26: CAO 3D- Anti-erreurs - Catalogue - Conjugue- Tchernmis- 
land - Fenêtres symétriques - Graphiques. 

27 : Création et animation de sprries - Anti-erreurs - CAO 3D - Champion- 
nat - Actions. 

28 : Anti-erreurs II - Routines machines - CAO 3D - Fichiers - Générateur 
desprrtes -Catprog 

29 : Les fichiers - Anti-erreurs 2 - Astronomie planétaire - CAO 
3D - Catprog - Pentominos. 



Je commande lots(s) de 4 cassettes à 1 00 F le lot 

Numéros des cassettes souhaitées : 



Si une des cassettes était épuisée, je désire à la place 
la cassette n° : 



Prénom : 



Code postal : 
Date : 



. Ville : 

Signature : 



ccompagne d'un chèque à l'ordre des Editions SORACOM à l'adresse suivante : 
Editions SORACOM - La Haie de Pan - 35170 BRUZ. 



' Dans la limite des stocks disponibles 

"Ne pouvant être ienu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aimable clientèle ce cnoislr l'envoi en recommandé" 
\ ffecommend* : + 10 F) Pétai minimum dm Uvralaon .- 15 jour* à réception da la commanda 



EDUCATIF 



OPERATIONS A TROUS 



10 'HHIMHHHItlilllHIHIHHI /LA 



Iflf 






20 '••• 


opetbous 


>LB 


iff 






30 '■" 


EIEBCICES D'AIITHKETIIIUE 


>LC 


tit 






40 '••' 


Je» BEINGOT 


>LC 


m 






50 'm 


Octobre 1967 


>LE 


m 






60 'iiiiiiiiitiiiiiitiiiiiiiiitiin 


>LF 


mi 






70 ' iiiiiiiiiiiiiitiiiiiiiiiiiinii 


>LG 


mi 






80 '••• 


INITIALISATIONS 


>LH 


m 










>U 


mi 







100 DIK noH6).co»(6),opll3) >VU 

110 FOI 1=1 TO 6:IEAD notlii.colll) >G? 

:HBT 

120 FOU 1=1 T0 3:iEAD opt(i):NEIT >AI 

130 ap* "xAppuie sur une touchez* :r >HP 

e» ■ Becouence ":ef»=STBING»(22,32 

) 

140 SYHB0L 255,0,0,255 >PF 

150 ENV 1,1.15,5,5,1,10 >8K 

160 INK 0,13: INK 1.0: INK 2, 11: INC 3 >DF 

,25 

170 CLS:BOBDFJ 14:PAPEB 0:G0SUB 222 >QN 

IkGOSUB 2070 

160 r» ■ INKEÏI:IF r»=" THEN 160 >III 

100 r=VAL(r»):IF r<l OB r>3 THEN PB >TL 

INT CHB»(7>:G0T0 160 

200 CLS:PAPEB 0: BORDE» BiGOSUB 2070 >PC 

:G0SUB 2290 

210 ch»=INKET»:IF ch»=" THEN 210 >ZH 

220 ch=VAL(cM):IF cb<0 01 ch>6 THE >CH 




Jean REINGOT 



Ce programme tout simple va 
certainement aider les enfants 
du primaire car il traite de 
3 opérations fondamentales : 
l'addition, la soustraction et la 

multiplication D'ailleurs, 
«Opération à trous» a été testé 
en milieu scolaire et a donné 

d'excellents résultats. 

Dans le listing, les X peuvent 

être obtenus en tapant 

CTRL + X. 

N PEINT CHB»(7):GOT0 210 

230 CLS:ei=0:sc-0:«u=0 >TA 

240 GOSUB 2020:60SUB 2070:G0SUB 206 >BA 

0:GOSUB 2090.-G0SUB 2100:G0SUB 2110 

250 BOUDES 6«r:0N r GOTO 280.760.11 >DN 

70 

260 'inilllliuiiiiimlllllliuii >BJ 

mi 

270 'm ADDITIONS >BH 

m 
260 'iiiiiiiiiiihiiiihiihihiiii >TA 
mi 

290 IF ch=0 THEN 0=2:11=2 >TH 

300 IF ch=l THEN 0=3lll=2 >TB 

310 IF ch=2 THEN c=4:ll=2 >TE 

320 IF ch=3 THEN c=4:li=3 >TH 

330 IF ch=4 THEN 0=5:11=4 >TK 

340 IF ch=5 THEN 0=6:11=5 >Tt 

350 IF ch=6THEN 0=7:11=6 >TW 

360 GOSUB 2360 >QD 

370 FOB 1=1 TO ll!t«t«l(tldtn >2U 

360 IF t<100 THEN t=O:G0T0 360 >ID 

390 GOSUB 2400 >PK 

400 GOSUB 2410 >PC 

410 GOSUB 2440 >PG 

420 h=li:G0SUB 2450 >NC 

430 GOSUB 2510 >PG 

440 FOB 1=1 TO ll:HiM(il(i),k(i),l >HQ 
)=V":NHT 

450 NIDIltt,ht*l,l)='.* >«L 

460 PENI2,1:F0B 1=1 TO I1:L0CATEI1. >JH 
12-c,6«l:PBINTIl,a«(i):NQT 
470 ' iiiiiiiiiiiiiiiiiiiiiiihiiiii >TB 
■tl 



480 '••• AFFICHAGE QUESTION >TC 

fit 



490 'uhhhhhih >TD 

m 

500 FOB 1=2 TO ll:LOCATEIl,9-c.6«l: >BI 

PBINTIt.'t'iŒn 

510 L0CATEIl,ll-c-i,6*l:PBINTtl,STB )UH 

INGI(c<l'l,255) 

520 L0CATEil,9-c,e<ll:PBINTIl,'=' >BD 

530 LOCATEI1.12 c i,8»lt:PBIKTIl. t! >DT 

540 'iiiniiiiiiiiiiniiiiiiiiiini >BK 

m 

550 '••• ENTREE BEPONSE >TA 

m 

560 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiii >TB 

m 

570 FOB 1=1 TO ll:L0CATEI2.11-c,6*l >AÏ 

:IHPUTI2,«rli):NElT 

560 L0CATEI2.12 c i,6fl:PBINTI2.STB >WU 

ING4(c<l«l,2S5) 

590 L0CATEI2.11-C-I, S*lll INPUTI2.tr >EV 

600 FOB 1=1 TO IllIF ilIlOirlII TH >HA 

EN 1650 

610 NEIT >EC 

620 IF trOt THEN 1650 >PV 

630 GOSUB 2560 >«E 

640 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiii >TA 

m 

650 'm AFFICHAGE SOLUTION >TB 

m 

660 'iiiiiiiiiiiiiiiiiiiiiiiiiiiiii >TC 

m 

670 L0C»TEU.lB,2:P«INTt4," ":PENI >GA 

2,3::CLSI2:L0CATEI2,2,2:PB1NTI2,'S0 

LUTI0N':e9=0:G05UB 2080:1F r=3 THEN 

1900 
680 FOB 1=1 TO li:L0CATEI2,ll c.6«l >UN 
:PBINTI2,a(l):NEIT:L0CATEI2,ll-c,6< 





l:P8ll(TI2,STBING»[ctl,2S5>:L0CATEI2 
,ll-c-i,7«i:Nlin , l2 1 t 
680 L0aTÎI2,9-c,7*i:PBIiril2, , = > :IF >K 
1=2 TIO 710 

700 FOI 1=2 T0 li:L0CATEI2,9-c,6«i: >SW 
PBIIfTI2,'<MIEIT:G0T0 720 
710 LOCATEI2,B-c,8:PBINTI2,"-" >TC 
720 GOTO 2860 >G6 

730 'lltllllillllllllillllllillllll >TA 
llf 

740 '•» SOUSTBACTIONS >TB 
in 

750 '•■•••tllliitllliiilllltliiiiti >TC 
lll 

760 IF ch=0 THFJ c=2:h=2 >BH 
HO IF ch=l THFJ c=3:h=3 >n 
780 IF ch=2 THEN c=4:h=3 >ag 
790 IF ck=3 THFJ c=4:h=4 >BU 
800 IF ch=4 THEN c=S:h=4 >8H 
810 IF ch=b THEN c=5:k=5 >8S 
620 IF ch=6 THEO c=6:h=6 >IV 
830 ll=2:G0SUB 2380 >ML 

840 IF a(l)<=a(2) THFJ* 830 >BZ 
850 t=a(l)-a(2) >TE 

860 GOSUB 2400 )QB 

870 GOSUB 2410 >QD 

880 IF ItOc THEN 830 >NH 

890 GOSUB 2450 >Q« 

900 GOSUB 2440 >QA 

910 IF CH=0 THEN FOB 1=1 TO 2:NI0«( >LF 
A«(I),H(I),1)=V':NFJT:G8T0 990 
920 IF ch<4 THEN FOB 1=1 TO 2:HID»( >Afl 
al(l),h(l),l)=V:NFJT:HID»(t»,h(3) 
,1>="." 

930 IF ch=4 THEN FOB 1=1 TO 2:WM( >KE 
a»<l),h(i>,l)=V:NEIT:HID«<a»<2),h 
(3),l)= , .':HIM(U > h(4),l)=".' 
940 IF ch=5 THEN FOB 1=1 TO 2:HID*( >KG 
«»(l),h(l),l)=V:HID«(il(2),h(H2) 
,l)=•.■:NElT:HI0»(t»,h(5))=•.• 
950 IF ch=6 THEN FOB 1=1 TO 2:NIM( >B0 
>4(l),bli),l)='. I :NIM(at(2),h(i*2) 
,l)='. , :IHM(tl,h(l«4),l)=".":NFJT 

960 ''""H i mu >TF 

m 

870 'm AFFICHAGE QUESTION >TG 

lll 

980 'iiiiMiiiiiiiiiiiiiiiimiiMi >TH 

m 

990 PENI2,1:F0B 1=1 TO 2:L0CATEI1.1 >HA 

2-c,6»l:PIINTIl,il(i):NEIT 

1000 LOCATEIl,e-c,B:PBINTIl,' ■ >ZU 




Exercice H Essai 1 
Score 1S sur 28 



TTTram 



UOTRE 



REPONSE 



? ï ; 



? 33 



ERAUO 



N i veau 

O 



1010 L0CATEIl,9-c,9:PBINTIl,STBING» >ND 
(c«3,255) 

1020 L0CATEI1.12 en, 10:PBINTH, tl >CT 
1030 L0CATEI1.9 c.lOrPBlimi, " = " >AK 
1040 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >XH 
Mil 

1050 'm ENTBEE BESULTAT >IJ 

ni 

1060 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >XK 
Hll 

1070 FOB 1=1 T0 2:L0CATE»2,ll-c,6*l >ZT 
:INPUTI2,»r(ll:NnT 

1080 l0CATEI2,10-c,9:PBINTI2.STBING >PI 
t(c»3,255) 

1090 LOCATEI2, 11 o*l, 10: INPUTI2.tr >CE 
1100 FOB 1=1 TO 2:1F i(lK)iill) TH >fiï 
EN 1850 

1110 NEIT >ke 

1120 IF trOt THEN 1850 >QE 

1130 GOSUB 2580 >IC 

1140 'imlHIlMIIIHHIHIHIIHI >u 

•lll 

1150 'm HULTIPLICATIONS >K 
ni 

1160 «m i •■•iniiii >TA 

mi 

1170 IF ch=0 THEN c(l)=2:c<2)=l >H 

1180 IF ch=l THEN c(l)=3:c(2)=l >IB 

1190 IF ch=2 THEN c(l)=3:c(2)=l >ID 

1200 IF ch=3 THEN c(l)=2:e(2)=2:pp= >GB 

2:h=4 

1210 IF ch=4 THEN c(l)=3:c(2)=2:pp= >GÏ 



2:h=4 

1220 IF ch=S THEN o(l)'3:c(2)'2:pf >G2 

2:h=6 

1230 IF ch=6 THEN c(l)=4:c(2l=3:p|>= >GF 

3:M7 

1240 GOSUB 2440 >VK 

1250 BANDOHIZE TIHE >PJ 

1260 FOB 1=1 TO 2:ali)=INT(BNDlBilO >HK 

A lc(l)-l))HO-(c(l)-l):NQT 

1270 t=a(l)la(2) >ZJ 

1280 FOB 1=1 TO 2:al(l)=STM(a(l)): >KE 

a»(l)=BIGHT»(a»(l),c<l)):NEIT 

1290 FOB 1=1 TO c(2)llF HIMU4I2), >TX 

1,1I='0* THEN 1260 

1300 NFJT MO? 

1310 FOB 1=1 TO 2:la(l)=LEN(al(I)l: >GH 

un 

1320 t»=STB»(t):lt=LEN<t»>-l:ti=BIG M)ï 
HT»(t«,lt) 

1330 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >IK 
llll 

1340 '■•■ AFFICHAGE QUESTION >TA 
m 

1350 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >TB 
•m 

1360 GOSUB 2810:G0SUB 1680 >UF 
1370 FOB 1=1 TO 2:L0CATEIl,12-cll), >CP 
bt|:PBINTIl.a»(ll:NErr 
1380 L0CATE»l,12-c(l)-2,8:PBINTtl,S >D 
TBlNG«(cll)»2,255) 

1390 IF cti<3 THEN 1440 >PH 

1400 L0CATE»l,12-lt,10«c(2):PBINTtl >FT 



2/ 



I 
4 




,ti 

Ulll LUUUtli 12 c(l> 2, /:PBIIITit,- >EB 

i" 

1420 UltAIlll,l2 It 2,10»c<2l:PBIin >JT 

11,'-" 

14JU bulll 1400 »U 

1440 LUUItll,12lt,8:PBINTH,t» )BA 

1450 L0CATEIU2 0(11 -t,7tltlHM,' >a 

1" 

1460 L0Urtll,12 It 2,9:PBINTtl,"=" >W 

i«iu II- 0<j IHU 1530 '«» 

iwj m* M iù c(2)iL0CMtBl,12 ip >Jt 

(Il BM.miMill ppl(l):HEll 

148U LUUir Il 12 lp(0(2l) 2 »*i.l2) >PE 

,PSINTll,àl8li«j»il|ilcl2l)«i,2&S) 

îbUO 'm •«•• >" 

mi 

1510 '••• ENTSEE BESULTAT >» 

fit 

1520 mi iiMiiiii"»'»»" >TA 

ttti 

lbJO ri* Il lu 2L0CATtl2,12 dit, >DJ 

b»l.llirini2,».lll:KUl 

154O.L0UIII2.12 cll>,B:PBINTI2,STB >Ï0 

IN6»(o(l)«2,2Sil 

1MU if OM3 llttN 1580 >PB 

1560 mu i i 10 e(2)iL0UIEK,12 l|i >KA 

111 0.1 I«ruil2 HviUIlKtll 

15/0 uimit 12.12 lt(e(2»,9«o(2):F >HA 

lHnl2.nniM>lll l >lc(2l)*2,255l 

1580 UialEI2,U lt,10»tl2):l«PUTI2 >TH 

.tr.GOIU 1000 

1580 tMJiltlili lt,9;WPOÏI2,tt >BI1 

1600 MI4 1-1 m 2.IP »illK>»li> IX >NC 

ut 1060. nui 

1610 II- i*<d THEN 1630 >PH 

1620 l-Ok 1 1 10 0(2)|1F ppilhOppl >VC 

il rat* lobo. util 

1630 IF tr<> t iHtN 1850 Xftl 

1640 60608 2500 >U 

1660 ■••••• « >1 

lllt 

1660 't llBAGè 40 SOtl HULTIPLICAÏI >TF 



16/0 'ttttutitiiHilliliullliiiil >TG 

1141 

1600 IF ch-o mut mu innbnihiiIIi >QU 

HiiminliàlllI.hlH.U-VlBETUBN 

1680 IF oh-i IHUI mu imiio<o«2)ii >ZV 
lNlMUt<l),k(U,l>* a .":»»(2>= - .":B 

etuiw 



1/00 IF ch=2 THE*. hCII-INT(«H)i2)«l >J« 

lMM(*t,hU>,l>*">">**( 2> *"-' 

1/10 IF ch=2 AND It'll(l) THEN MIDI >IT 

(U.l.ll^.VBETOÏN 

1720 IF ch=2 THEN BI0*tt*,2, 1) =■- *: >MB 

KTUH 

1/30 h<U = INT(»ND«cll)Hl:HID«<««ll >P€ 

),M1),1)"*." 

1/40 h(2)=IKT(ENDlcl2)>»l:lF h(2) h >KJ 

(1) THEN 1740 

1/50 HIM(»»l2),h(2),l)-'." >TB 

i/60 M6> nmaNoutm m 

1//0 ll(7) = tNT<BJi>llt)tl:IF h(7)=h(6 >HC 

I THFJ 1770 

1/80 KOfi 1=3 TO 2«t(2):h(l) INTUND >BB 

■ tlplî 2) Hlll'l.NUI 

1/80 IF ch=3 08 ch-4 THEN MID»<pp»< >FT 

ob-2),lt(oh),l)' , . , :IIIM(U,M6),l)« 

■.■.■BETUBN 

1800 FOI 1=1 TO cl2):HID»(pp»(i),h( >UL 

i»2),l>**.*lFEtT 

1810 FOB 1=1 TO 2:IHM(M,b(li5),l) >ÏF 

^.•iNEniBETOBN 

1820 'imiminiiiiiimiiiiiiiii >TD 

lill 

1830 '••• ECHEC ESSAI SUIVANT >VE 

tu 

1840 'illiiillllliillllllllllllllli >1f 
ml 
1860 SOUND 1,433,50. 15,,. 6:L0CATEI3 XX 

,3,2:PBINTI3, , N0N":ei=es»l:IF «f>3 
THEN 6/0 ELSE L0CATEI4,18,2:FBINTI4 

,H 

1860 FOB tt=l TO 1000:NEIT:SOUND 1, >LN 
120,10, 15,1:UKATE 24,7:PBINT re»:F 
OB tt-1 TO lOOOlNEITiSOUND 1,80,20, 
15,l:lXSi2:CLSI3:L0CATE 18,7:PBINT 
»pt:CALL IBB1B:L0CATE 18,7:PBINT el 
•ilF c=3 THEN 1530 ELSE GOTO 570 

18/0 ••••••• • « • >'J 

•ni 

1880 '••• SOLUTION MULTIPLICATION >TK 
m 

1890 'iiiiiiiiiiiiiiiiiiiiiiiiiiiii >ZA 
•m 

1900 FOB 1=1 TO 2:L0CATEI2,12-c(ll, >BV 
5»l.PBINTI2,*(il:«tlT 
1910 L0CATEI2.12 C(1),8:PB1NTI2,STB >VE 
ING«<cll)«2,2S5l 
1920 L0CATEI2,12-cll)-2,7:PBlNTI2,• >EK 



1930 IF ch<3 



I 1970 



>py 



1940 L0CATEI2.12 it,10ic(2):PBINTI2 >FE 

,t 

19S0 L0CATEI2.12-lt-2,10*c(2):PBINT >JD 

I2,"*' 

1960 GOTO 1990 >PC 

1970 L0CATEI2,12-lt,9:mNTI2,t >A» 

1980 L0CATEI2,12-lt-2,9:P^INTI2,■=• >« 

:G0T0 2010 

1990 L0CATEI2,12-lt,»tc(2):PIINTI2, >TB 

STBING»lltt2,25S) 

2000 FOB 1=1 TO c(2):LOCATEI2,12-lp >HX 

(ll,8tl:PBINTI2,pp(ll:NaT 

2010 GOTO 2850 >IF 

2020 'iiiiniiiHKiiiiiiiiiimiii >IG 

fil 

2030 '••• FENtTBES -CADBES >IH 

tu 

2040 ' •••••••! iniiimiiiimii»» >IJ 

•il 

2050 «INDOWIl,3,16,3,17:«lNDOWI2,22 >KE 
,3S,9,23:BINDOyi3,S,U,20,22:BINMW 

I4,19.39,2,S:PAPEBI1,2:PAPEM2,2:PA 

PEBI3.3:PAPEBI4,3:CLSI1:CLSI2:CLSI3 

:CLSI4 

2060 BETUBN >FB 

2070 OBIGIN 0,0:PL0T 0,0,1:DBAB 639 >P0 

,0:DBAB 639,399:DBAB 0,399:DBAy 0,0 

:PL0T 2,2:DBAB 637,2:DBAB 637,397:0 

BAN 2,397:DBAB 2,2:BETUBN 

2080 OBIGIN 30,126:G0SU1 2120:OB1GI >DT 

N 332,30:G0SUB 2120:08IGIN 62,46:PL 

OT 0,0:DBAW I14,0:DBAB U4,S0:DBAB 

0.50:08411 0,0:OBIGIN 284,318:PL0T 

,0:DBAU 338,0:DBAB 338,66:DBAB 0,66 

:D8AN 0,0:OBIGIN O.OiBETUBN 

2090 OBIGIN 30,126:605011 2130:0IIGI >Œ 

N 332,30:G0SUB 2130:0»IGIN 0,0:BETU 

BN 

2100 UICATEI1,2,2:PBINTI1,'DPEBATI0 >KJ 

N A':LOCATEI1,2,3:PB1CT«1,"!ECOBST 

ITUEB":L0CATEt2,2,2:PBINTI2, 'VOTEE" 

: L0CATEI2, 7 , 3: PB 1NTI2, "BEPONSEV BEI 

un 

2110 L0CATEl4,2,3:PBINTI4,"Smre >BU 
sur 0":LOCATEI4,2,2:PBlllTM,"Eierc 
lce EsmIVLOCATE 14.20:P1INT 'NI 
ve»u":LXATE 1S,22:PBINT chlBETUBN 
2120 PLOT 0,û:DBAW 22B,0:DBAU 228,2 >K0 
42:DBAN 0,242:DBAW 0,0:EETUIN 
2130 PLOT 0,174:DBAU 228. 1/4: BETUBN >DP 
2140 '■••■••■•■•••■■•iiiiiiiiiiiiii >K 
•tt 



28 







2150 'm DATAS >TA 

IH 

21*0 • >TB 

IH 

21% MTA Itauvals.Betourne au nivea >G8 

u 0, Insuffisant, Descends dp deui ni 

veaui.fayen, Descends d'un niveau, As 

set Bien.Becoeaence au mh niveau, 

llen.lecoaaence pour avoir 20, Très 

61en,Passe au niveau superleur 

2180 DATA ADDITION.SOUSTIAaiON.rlUL Hit 

TIPLICATI0N 

2190 11111111111111111111111111111 >TE 

m 

2200 'm HEHU 1 >IC 

lll 

2210 '■••••iiiiiiiiiiiiiiiiiiiiiiii ,ih 

m 

2220 PEU 1:L0CATE 2,3:PRINT" Le Jeu >DK 
consiste a retrouver dans une o 
aération les chiffres qui ont ete 
effaces. 1 

2230 PB I NT : PS I HT: PB I HT- Choisis d'à >CD 

bord quelle opération tu veu 

i faire:* 

22*0 FM 1*1 T0 3:L0CATE iO,12«H2: >PI 

PBlIfT opKD.-LOCATE 28, 12«ll2:PBIMT 

■<"iil , > , :«HT 

2250 LOCATE 10,22:PRIhT yTape le n >rffi 

uwro choisi, x VBETVRN 

2260 '••••" •"•" >TC 

m 

2270 'm «EMU 2 >TD 

m 

2280 '•••••■llllllllllllllliiiiiiii >jj 

lll 

2290 PEN liLOCATE 5,3:PRINVTu as c >U 

hoisl l'option: •: LOCATE 1S.5:PBIMT 

opl(r) 

2300 LOCATE »,8:PllhTTu devras tap >KB 

er le bon noebre a':L0CATE 2,9:PilN 

T'chaque ligne puis appuyer sur <EN 

TER>" 

2310 LOCATE 2. 1« : PB IHT-So I ut ion au >KJ 

1er essai: 10 pointsMJCATE 14,15: 

P8IHT , 2ae essai: 5 polnts":L0CATE 

14.16:PBINT'3ie essai: 2 points* 

2320 LOCATE 2,19:PBIHT'Choisis le n >«1 
iveau de dlfficulte:':LOCATE 6,21:P 
BINT'xTAPE UN NOMBRE ENTRE ET 6 
z'iKTiai 



2330 '■■iitmilliiliiiiiiiiiiiiiii >TA 
m 

23*0 ■••• GENERATION NOMBRES >TB 

m 



2350 
lll 



>TC 



2360 '"■• ROUTINES DIVERSES >TD 
lll 

2370 ...I....... >TE 

lll 

2380 RANDOHIZE TIME >pp 

2390 FOI l«l T0 ll:a(l)=INT(INDt9H >MT 

0"(e-l>H10*(c-H:NEIT:IETUW 

2»00 FOU 1=1 TO ll:a»(l)=STM(a(D) >ÏK 

:«•(() --RlGlffl<al<i>,c>:l»nT:BFTURN 

2410 t»=STR$(t):lt=Lfll<t»)-l:IF lt= >n 

c THEN 1=0 ELSE 1=1 

2420 t»=IIGHT4(t»,lt> >QH 

2430RETUBN >F C 

2440 ei=e»»l:L0CATEI4,10,2:PfilNTI4, >FD 

ei:es=l:L0CATEI4,18,2:PBlNTI4,es:RE 

TURN 

2450 FOI 1=1 TO h >EC 

2460 h<i>=INT<RND<cl<l >Qfi 

2470 IF 1>1 THE» FOt k=2 TO i: IF h( >HU 

l)=h(k-l) THEN t=l-l:G0T0 2460 

2480 IF I>1 THEN NEXT >PY 

2480 HEIT >UG 

2S00IETU8N > F A 

2510 ht=INT(RNDi|t)»l >qm 

2520 FOI 1=1 TO IttllIF ht=h(i) THE >GV 

N 2SI0 

2530 HFIT >| j 

2540 RETURH >FE 

2550 '•••••IIIIIIIMIlIllllliiiitll >TE 



>ÏF 



>»G 



2560 'm EŒBCICE REUSSI 

iii 

2570 'lllllllllllllIlllllliHii 

m 

2580 SOUND 1,80,30,1S,1:SOUND 1,63, >Ti 
30,15,1:S0UND 1,40,30,15,1:LOCATE I 
3,?,2:PBINT«3,-BBAWn- 
2580 IF es=l THEN sc=sc*10 FXSE IF >ZT 
es=2 THEN sc=sc«S ELSE IF es=3 THEN 
sc=sc»2 
2600 L0CATEI4,7,3:PBINTI4,sc >M 

2610 su=su»10:LOCATEI4,14,3:P8INTI4 >HH 
,su 

2620 LOCATE 1B,7:PBINT ap4:CALL 188 >ET 
18:L0CATE 18,7:PBINT efl:CLSH:CLSI 
2:CLSI3:t=0:GOSUB 2090:GOSUB 21O0:e 



9=0 

2630 IF ei=5 THEN 2670 ELSE ON r GO >PK 

TO 290,760,1170 

26*0 .,.„ >TE 

lll 

26S0 'm AFFICHA» BFSIII TATS >TF 
lll 

2660 '•• > re 

m 

2670 VIM)0WiO,l,40,l,25:aSIO:B0BDE >GJ 

B 15:0R1GIN 0,0:GOSUB 2070 

2680 PEN l:LOCATE 5,2:PRINT"0>tlnn XD 

choiiie:';opl(rl 

2680 PEN 3:LOCATE tO,4:PBINT'Degre >FU 

de diffteu!te:';ch 

2700 PEN 1:L0CATÎ lO.SrPRIHTVnlcl >TK 

ta note:' 

2710 n=sci2/5:L0CATE 12,1? PIINT n; >ID 

•sur 20 , :i=nc4»l 

2720 PEN 3: LOCATE B.lfiPfiINT noltr) VF» 

:LOCATE 8,18:P«INT colle) 

2730 LOCATE 8,20:PBINT 'SI tu peut >JT 

2740 PEN l:L0CATE 4,7?:PBIMT 'Tape >HT 

<C> pour continuer." 

2750 rp»=l«KEY«:IF rp»-" THEN 2750 >«C 

2760 IF rp»="C OB rp»='c" TWN CI.F >LA 

AR:«0T0 10 

2770 PBINT CHB»(7):GOT0 2750 >UV 

»*> m 

m 

2790 '• TBAITFMFjrT PRODUITS P4RTIFI >ZA 

S • 

2M0 »» >TC 

ni 

2810 FOB i = l TO c<2):pp<ths<1l.»»l >|j 

(HID»(a«(?l,la(2) i*l,D>:NFTT 

2820 FOB 1=1 TO c(2):pp»(l)STM(pp >0I 

(ill:lpll)=LEN(pp«(ll) 1-ppim nr. 

HT»(ppl(l),|p<i)):MEn 

2830 FOB 1=1 TO c(2l:ppl(l)-ppt(i). >aj 

STBINGKI l,32):lp(l)=LEN(pp|(|)|:(( 

FJT 

2640 BETUBN s fH 

2850 su=suM0:L0CATEI4,14,3:P8INTI4 >HP 

,su 

2860 LOCATE IB,7:PRINT ap»:r.ALL MB >KH 

l8:CLSII:CLSI2:CLSI3:t=0:IJICATE IB, 

7:PRINT efi 

2870 IF ei =6 THEN 2670 ELSE GflSIJB 2 >HJ 

100:G0T0 250a 




Grègory NOE 



Valable pour 
IftCPC 464 •■ 
|»CPC 664 
1HCPÇ6128J 



Il est difficile de taper un programme d'une revue 
sans commettre d 'erreurs ! Quand les erreurs sont 
signalées (Syntax error in.... Lines does not exist in...), 
la correction est facile puisque la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC. le programme est cor- 
rect, il peut en être tout autrement pour le lecteur. 
Si le fonctionnement du programme ne correspond pas 
vraiment au programme original, alors il est impossible 
de retrouver l'erreur commise, à moins de comparer les 
lignes de votre programme avec celles du journal, mois 
c'est très long et on risque de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été créé; il est à utiliser 
si vous ne retrouvez pas vos erreurs. 
La frappe d'un programme de votre journal favori (CPC) 
terminée, vous faites "RUN" et là, vous corrigez toutes 
les erreurs signalées par le CPC en vous référant au tour- 
nai pour comparer. Si malgré cela, il ne tourne toujours 
pas, suivez cette procédure : 

- sauvez votre programme en ASCII grâce à l'instruction 
: Save "nom prog", A. 

Puis, si vous êtes sur K7. rembobinez la bande jusqu'au 
début du fichier; 

- chargez Anti-Erreurs; 

- entrez le nom de votre programme et insérez le sup- 
port où il se trouve (K7 ou disquette). 

Après quelques secondes, les numéros de ligne vont 
défiler. Vous remarquerez qu'à chaque ligne correspond 
un code de 2 lettres sous cette forme : >XX ; c ' est le code 
qui va vous permettre de savoir d'où proviennent les 
erreurs. Pour cela, il faut que vous compariez les codes 
du journal à ceux de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui correspond à ce code. 
Continuez ainsi jusqu'à la fin du listage. Le défilement 
terminé, recherchez votre programme et corrigez les lignes 
que vous avez notées en comparant avec le journal. 
Faites "RUN" et. 6 miracle I. ça marche. 
Attention, lors de la frappe du programme à traiter, 
n'omettez aucun caractère car Anti-Erreurs les prend en 
compte et bien sûr, ne tapez pas les codes de contrôle. 
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► 11» 






RC 


» 126 


. 




>R0 


m 


INITIALISATION 




•RE 


te 
14* 


; 




RF 


► 150 






'« 


te loi) ON ERROR S0T0 1250 




BD 


17e MODE 2 




>HH 


18(1 


DIM S»(23) 




BD 


* 19» FOR 1=0 T0 22:REAB B$:6*(I)*6«:NEXT 




>FR 


* 20» 


ATTENTION LA LISNE DE DATA CI-DESSOUS NE CONTIENT 


,-RC 


te PAS TOUTES LES LETTRES DE L ALPHABET ! ! ! 






¥ 210 DATA A,B,C,D.E ( F,G.H,J,K.L,r1,N,P.Q.R 


T,U,V,H,I,Y,Z 


AD 


220 


ANTI-BUG FICHIER 




>RE 


-21» 


IF PEEKHIMEM-H 1=255 THEN 2B0 




>ZD 


► 240 0PEN0UT "CPC" 




HA 


► 25» 


hemorv hiheh-2 




■m 


► 260 


CL0SE0UT 




>RJ 


L 27» 


F«E HIMEfl+1,255 




>PP 



30 



280 OEFINT B-Z 




>*H 


29» 




>TB 


M BORDER 6:1* 0,1: INk 1 


,16:PEN 1:PAPER e 


,>JN 


:i* MOVE 0.16:DRAH 650.16 




>TK 


320 PAINT TA6I27I "A N T I 


-ERREURS 


":CHR»(24 ,>SU 



; - Vtrsior, 2.0";CHRI<24) 

330 NOVE «. 385: DRAW 656,385 >UJ 
34* lOCATE 24.25:PRINT"CPC REVUE DES STANDARDS AMSTRAD' >EV 

SI HINDOU 1,86,3,23 >NL 

Î66 n»="Reali5e par Greqory NOE" >HJ 

376 FM" > M 

38» FOR 1=1 TO LENIM») >PU 

396 FMF»-H1ID»(M$,I.l) >PL 

400 LOCATE 70-I,5:PRINT F» >UL 

416 FOR T=l TO 166 ,.LQ 

426 NEXT T,I >EF 

436 • ;,RH 

446 ' «***#*****«**M#*#t***4»M***##** >RJ 

456 • >RK 

466 LOCATE 2, I:PRINT"ENTREZ LE NOM DU FICHIER : "i >XT 

476 1NPUT ",NF« >FD 

486 IF NFM"" THEN PRINT CHR*(7):60T0 466 ;>GR 

496 LOCATE 2,3:PRINT"IMPRINANTE OU ECRAN (I/E)?" >VR 

566 R$="":HHILE R*="":RMUPPER*(INkEY»):NEND ,>NK 
516 IF R»='i" THEN CA=8 : PRINT "BRANCHEZ -LA.. . " ELSE 546 >XD 

526 PRINT»8,CHR*<27);"'";CHR*<20> >AR 

536 SOTO 566 ,>ZF 

546 IF RM"E" THEN CA=6:60T0 560 ,.¥0 

556 SOTO 506 >ZB 
566 CLS:LOCATE 2,3:PRINT"TANT QUE LE LISTASE N'EST PAS >0R 
TERMINE' 

576 LOCATE 2,5:PRINT"NE PAS ARRETER LE MAGNETOPHONE OU >J« 
NE' 

586 LKATE 2,7:PRINT"PAS SORTIR LA DISQUETTE" >TL 
596 LOCATE 2, 16:PRINT"PRESSEZ UNE TOUCHE POUR LA LECTUR >HH 
E" 

600 CALL WB05 >LH 

"» ' >RH 

626 ' ««<««««««««« >rj 

630 < TRAITEMENT DU FICHIER > ;.RK 

646 >»»»»»»»»»»» >TA 

650 ' >TB 

666 OPENIN " ! "tNF» >L f 

670 CLS:PRINT'TRAITEMENT EN COURS..." >JR 
680 IF LEN(A»)=255 THEN AM":LINE INPUTI9,B»:60T0 1166 >iU 

696 LINE INPUTI9,BJ:AMB$ >UJ 

760 IF CA«8 THEN SOSUB 1310 >VF 

710 IF INKEY (661=0 THEN STOP m 

™ ' .'RK 

730 ' CALCUL DE LA CLE DE CONTROLE >TA 

'« ' >TB 

750 A=6:FLG=6 >MB 

760 FOR 1=1 TO LENIA») >PH 

77» LMMID»(A»,I,1) >MU 

78» IF LMCHRK34) AND FL6=1 THEN FLB=«:60T0 B40 >PC 

796 IF LMCHRV34) AND FL6=0 THEN FL6=1:60T0 840 >PD 





860 IF LMCHR»(32) AND FLGOl THEN 850 
816 IF L«=CHR«(39) AND FLG=6 THEN 866 
826 IF FLS=1 THEN 846 

836 LMUPPER»(L») 
846 A=A+ASC(L«)+I 

850 NEXT I 

866 ' 

876 CH*=STR«(A) 

886 CHMRIGHT»(CH«,LEN(CH»)-1) 

896 L=LEN(CH»):L2=LEN(CH$)/2 

906 A=VAL(LEFT*(CH».L2)) 

916 C=1NT (A/231 

926 P=A-(C«23) 

930 C»=B»(P) 

940 A=VAL(RI6HT»(CH*,L-L2)> 

950 C=INTlA/23):P=A-(C«23) 

960 CJ=C*+G»lP) 

970 ' 

980 FOR 1=1 TO 6 

990 L$=MID»(A»,I,1) 

1600 IF L«<"0" OR L», ; "9" THEN 1630 

1616 LIS=LI$tL« 

1026 NEXT 

1636 VMM"":FOR 1=1 TO LEN(A«):IF ASC(MID»(A*. I, Il K32 

THEN VM*=VM*+" " ELSE VMMVMt+NID»(A«. I, 1) 

1646 NEXT i:B*=VM* 

1650 ' 

1666 IF CAOB THEN 1070 ELSE 1090 

1076 PRINT LI«:TAB(10) ">"|C* 

1686 LI*="":G0T0 1160 

1090 LIM"":PRINT#CA,LEFT*(B$,55):TAB<57) ">":C« 

1106 IF LEN(B«)<55 THEN 1166 

1116 FG=1 

1126 B»=MID»(B*,56,LEN(B*I) 

1136 PRINT#CA,LEFT»(6»,55) 

1146 IF F6=l AND CA08 THEN FG=6:60SUB 1316:G0TD 1156 

1156 GOTO 1166 

1166 IF E0F=-1 THEN CLOSEIN ELSE GOTO 686 

1170 IF CA=6 THEN CALL 4BB63:PRINT TABI56) CHR«l241; "UN 

E TOUCHE... ■;CHR*(24):CALL &BB65 

1186 CLS:PRINT"MAINTENANT RECHARGEZ "|NF«!" ET CORRIGEZ 

LES LIGNES QUE VOUS AVEZ NOTEES.." 
1196 END 
1260 ' 

1210 ««««««««««««< 
1220 '< TRAITEMENTS DES ERREURS > 
1230 ' «<««««««««««« 
1246 ' 
1250 IF ERR=25 THEN CLS:PRINT CHR»(7):CHR$(24)| "FICHIER 

NON ASCII"iCHR»(24):END ELSE CONT 
1260 ' 

1270 ' <«««««««««««« 
1280 '< ATTENTE TOUCHE... > 
1290 ' «««««««««««<« 
1300 ' 

1310 C0M=C0M+1:IF C0MM9 THEN CALL J.6B63:PRINT TABI56) 
"UNE TOUCHE...': CALL MB65:CLS:C0M=1 
1320 RETURN >£« 



>CX 

.« 
>ND 
>MC 

'LU 
•PB 
•TE 
•CC 
>YC 
>XA 
>TY 

>m 

>LJ 

;>xc 
?m 

.'UT 
>TD 

>TG 
M 
>M¥ 
■U 
>XF 
•>RE 
Et 

m 

>XJ 
•ïT 
>HZ 

•NB 
on 

>UT 
/CG 
>UB 
vu 
/VB 
16 
>HD 
>RJ 



>YK 
>XF 
>XB 

•m 

>XJ 
>XK 
>YC 

>YB 
>YC 

>r'D 
Ai 
>XG 
•>AF 



VOUS AVEZ LA PASSION ? 








CHEZ VOTRE MARCHAND 
DE JOURNAUX HABITUELS i 



CLIPPERTON: 

10 r- 



teur avec ses nombreuses 
applications. Le seul men- 
■ suel de ce créneau vendu 
M en kiosque. 
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NOUS AVONS L'INFORMATION! 



